anchor.diff:      (return-from make-key-acceptors nil))
     (setq keyword-args (mapcar #'(lambda (arg)
   				 (cons (make-keyword (car arg)) (cdr arg)))
  -			     keyword-args))  
  +			     keyword-args))
     (let ((key-possibilities (gensym "KEY-POSSIBILITIES"))
   	(member-ptype (gensym "MEMBER-PTYPE"))
   	(key-result (gensym "KEY-RESULT"))
  
positive.code: 		      :initarg :argument-unparser)
     (required-args :accessor required-args :initarg :required-args)
     (keyword-args :accessor keyword-args :initarg :keyword-args))
    
    (:documentation "A container for a command's parsing functions and
    data for unparsing"))
  
  
negative.code: 	  (setf (gethash name (command-line-names table)) command-name))
  	(when menu
  	  (%add-menu-item table item after))))))
  
  
  (defun apply-with-command-table-inheritance (fun command-table)
    (funcall fun command-table)
  