[mcclim-cvs] CVS mcclim

[crhodes]

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,