[mcclim-cvs] CVS mcclim/Apps/Listener

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory clnet:/tmp/cvs-serv28359/Apps/Listener

Modified Files:
	dev-commands.lisp 
Log Message:
Fixed minor typo that prevented multiple value returns from being
printed properly.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2006/12/03 22:56:46	1.39
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2006/12/13 21:05:11	1.40
@@ -1468,7 +1468,7 @@
 
          (with-output-as-presentation (t value (presentation-type-of value)
                                          :single-box t)
-           (present (first values) 'expression))))
+           (present value 'expression))))
     (with-drawing-options (t :ink +olivedrab+)
       (cond ((null values)
              (format t "No values.~%"))