21 Nov
2006
21 Nov
'06
8:34 p.m.
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)