Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv7072
Modified Files: commands.lisp Log Message: Unsupplied and Numeric argument markers should not be uninterned structures, otherwise use of the literals in compiled files will fail to compare EQLly with the specials.
--- /project/mcclim/cvsroot/mcclim/commands.lisp 2009/02/17 14:06:35 1.82 +++ /project/mcclim/cvsroot/mcclim/commands.lisp 2009/02/28 16:48:16 1.83 @@ -671,15 +671,13 @@ (defparameter *command-parser-table* (make-hash-table) "Mapping from command names to argument parsing functions.")
- -(defvar *unsupplied-argument-marker* (gensym "UNSUPPLIED-ARGUMENT-MARKER")) +(defvar *unsupplied-argument-marker* '%unsupplied-argument-marker%) +(defvar *numeric-argument-marker* '%numeric-argument-marker%)
(defvar *command-name-delimiters* '(command-delimiter))
(defvar *command-argument-delimiters* '(command-delimiter))
-(defvar *numeric-argument-marker* (cons nil nil)) - ;;; A type indicating empty input. For example, if one types <space> ;;; to get the default value of a keyword argument, and then types ;;; <return>, we don't want to see "None" in the output history. So,