Update of /project/mcclim/cvsroot/mcclim/ESA In directory clnet:/tmp/cvs-serv27256/ESA

Modified Files: esa-command-parser.lisp Log Message: Fixed copy/pasting of text containing spaces in Drei.

--- /project/mcclim/cvsroot/mcclim/ESA/esa-command-parser.lisp 2008/01/04 21:56:29 1.4 +++ /project/mcclim/cvsroot/mcclim/ESA/esa-command-parser.lisp 2008/02/02 19:02:05 1.5 @@ -111,7 +111,7 @@ (keyword-args (climi::keyword-args info))) ;; keyword arguments not yet supported (declare (ignore keyword-args)) - (let (result) + (let (result arg-parsed) ;; only required args for now. (do* ((required-args required-args (cdr required-args)) (arg (car required-args) (car required-args)) @@ -120,9 +120,11 @@ ((null required-args) (cons command-name (nreverse result))) (destructuring-bind (name ptype &rest args) arg (push (cond ((eq command-arg *unsupplied-argument-marker*) + (setf arg-parsed t) (esa-parse-one-arg stream name ptype args)) ((eq command-arg *numeric-argument-marker*) (or numeric-argument (getf args :default))) (t (eval command-arg))) result) - (maybe-clear-input))))))))))) + (when arg-parsed + (maybe-clear-input))))))))))))