#xyzzy のコマンドループっぽいもの（作りかけ

gistfile1.cl

(defun command-loop (keymap)
  (let (*this-command*
        *last-command*
        *last-command-char*
        (keymap* keymap)
        prefixes)
    (loop
      (refresh-screen)
      (setf *last-command-char* (read-char *keyboard*)
            *this-command* (lookup-keymap keymap* *last-command-char*))
      (cond ((commandp *this-command*)
             (format t "~&Command: ~S~%" *this-command*)
             (unwind-protect
                 (call-interactively *this-command*)
               (setf *last-command* *this-command*
                     prefixes nil
                     keymap* keymap)
               (clear-message)))
            ((keymapp *this-command*)
             (format t "~&Prefix: ~S~&" *this-command*)
             (message "~{~S~^ ~}" (push *last-command-char* prefixes)) ;逆じゃね？
             (setf keymap* *this-command*))
            (t
             (format t "~&unboud key: ~C~%" *last-command-char*)
             ;(error "What? ~S" *this-command*)
             )))))

universal-argument あたりが上手く動かない。

universal-argument から呼ばれてる process-prefix-args で（C-u 1 2 3 とかを処理するのに (read-char *keyboard*) した後）set-next-prefix-args してるのだけど、これは call-interactively には効かないっぽい。