Index: commands.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/commands.lisp,v
retrieving revision 1.82
diff -u -r1.82 commands.lisp
--- commands.lisp	17 Feb 2009 14:06:35 -0000	1.82
+++ commands.lisp	22 Feb 2009 10:57:09 -0000
@@ -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,
Index: frames.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/frames.lisp,v
retrieving revision 1.135
diff -u -r1.135 frames.lisp
--- frames.lisp	28 Jan 2009 19:27:22 -0000	1.135
+++ frames.lisp	22 Feb 2009 10:57:09 -0000
@@ -533,10 +533,8 @@
            (table (frame-command-table frame)))
        (unless (listp command)
 	 (setq command (partial-command-from-name command table)))
-       (if (and (typep stream 'interactor-pane)
-		(partial-command-p command))
-	   (command-line-read-remaining-arguments-for-partial-command
-	    table stream command 0)
+       (if (partial-command-p command)
+	   (funcall *partial-command-parser* table stream command 0)
 	   command)))))
 
 (defmethod read-frame-command ((frame application-frame)