[mcclim-cvs] CVS mcclim/Apps/Listener

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)