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

Modified Files: dev-commands.lisp Log Message: As per the advice of Nikodemus, only handle serious-condition in the Listener.

Also rebind *error-output*.

--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2008/05/27 15:30:32 1.58 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2008/05/27 15:53:55 1.59 @@ -1525,10 +1525,11 @@ (let ((- form) (*standard-output* standard-output) (*standard-input* standard-input) + (*error-output* standard-output) error success) (unwind-protect (handler-case (prog1 (cons :values (multiple-value-list (eval form))) (setf success t)) - (condition (e) + (serious-condition (e) (setf error e) (error e))) (when (and error (not success))