[mcclim-cvs] CVS mcclim/Apps/Listener

[thenriksen]

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))