anchor.diff:  (defun command-arguments (command)
     (rest command))
   
  +(defun partial-command-p (command)
  +  (member *unsupplied-argument-marker* command))
  +
   (defun read-command (command-table
   		     &key (stream *standard-input*)
   			  (command-parser *command-parser*)
  
positive.code: 	(let ((command (accept `(command :command-table ,command-table)
  			       :stream stream
  			       :prompt nil)))
  	  (if (member *unsupplied-argument-maker* command)
  	    (progn
  	      (beep)
  	      (format *query-io* "~&Argument ~D not supplied.~&"
  		      (position *unsupplied-argument-maker* command))
  	      nil)
  	    command))
        ((or simple-parse-error input-not-of-required-type)  (c)
  
negative.code: (defparameter *command-parser-table* (make-hash-table)
    "Mapping from command names to argument parsing functions.")
  
  (defvar *unsupplied-argument-marker* (cons nil nil))
  
  (defvar *command-name-delimiters* '(command-delimiter))
  
  