[mcclim-cvs] CVS mcclim/Apps/Listener

[ahefner]

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

Modified Files:
	dev-commands.lisp 
Log Message:

Bind '-' during evaluation.



--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2006/11/17 12:30:56	1.37
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2006/11/21 20:34:40	1.38
@@ -1477,7 +1477,8 @@
 
 (define-command (com-eval :menu t :command-table lisp-commands)
     ((form 'clim:form :prompt "form"))  
-  (let ((values (multiple-value-list (eval form))))
+  (let* ((- form)
+         (values (multiple-value-list (eval form))))
     (fresh-line)
     (shuffle-specials form values)
     (display-evalues values)