anchor.diff:         ,@(if command-table
   	     `((define-command-table ,@command-table)))
          ,@(if command-definer
  -	     `((defmacro ,command-name (name-and-options arguements &rest body)
  +	     `((defmacro ,command-definer (name-and-options arguements &rest body)
   		 (let ((name (if (listp name-and-options) (first name-and-options) name-and-options))
   		       (options (if (listp name-and-options) (cdr name-and-options) nil))
   		       (command-table ',(first command-table)))
  
positive.code: 	(disabled-commands nil)
  	(command-definer t)
  	(top-level '(default-frame-top-level))
  	(others nil)
  	(command-name (intern (concatenate 'string
  				(symbol-name '#:define-)
  				(symbol-name name)
  				(symbol-name '#:-command))))
  	(pointer-documentation nil)
  	(geometry nil))
      (loop for (prop . values) in options
  
negative.code: 	     (:pointer-documentation (setq pointer-documentation (car values)))
  	     (:geometry (setq geometry values))
  	     (t (push (cons prop values) others))))
      (when (eq command-definer t)
        (setf command-definer
              (intern (concatenate 'string
                                   (symbol-name '#:define-)
                                   (symbol-name name)
                                   (symbol-name '#:-command)))))
      (if (or (and pane panes)
  	    (and pane layouts))
  	(error ":pane cannot be specified along with either :panes or :layouts"))
  