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.~%"))