anchor.diff:      (alexandria:with-unique-names (universal-argument)
         `(progn
            (setf (get ',name 'command) ',gcmd)
  -         (setf (gethash ,command-name *command-table*) (cons ',gcmd ',name))
  +         (setf (gethash ,command-name *command-table*)
  +               (make-cmd :function ',gcmd :name ',name))
            (defun ,name ,parms ,@body)
            (defun ,gcmd (,universal-argument)
              (declare (ignorable ,universal-argument))
  
positive.code:              arg-descripters))
           ',name))))
  
  
  (defun all-command-names ()
    (alexandria:hash-table-keys *command-table*))
  
negative.code:                         (car arg-descripters))
                   (apply #',fn-name ,arguments)))))))
  
  (defstruct cmd function name)
  
  (defun exist-command-p (command-name)
    (not (null (gethash command-name *command-table*))))
  
  (defun find-command-symbol (name)
    (cmd-name (gethash name *command-table*)))
  
  (defun get-command (symbol)
    (get symbol 'command))
  