[mcclim-cvs] CVS mcclim/ESA

[thenriksen]

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))))))))))))