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

Modified Files: dev-commands.lisp Log Message: Handle BREAK in the Listener.

--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2008/05/27 15:53:55 1.59 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2008/05/27 16:00:58 1.60 @@ -1532,7 +1532,7 @@ (serious-condition (e) (setf error e) (error e))) - (when (and error (not success)) + (when (not success) (return-from evaluate (cons :error error))))))) ;; If possible, use a thread for evaluation, permitting us to ;; interrupt it. @@ -1568,8 +1568,10 @@ (display-evalues value) (fresh-line)) (:error (with-text-style (t (make-text-style nil :italic nil)) - (with-output-as-presentation (t value 'expression) - (format t "Aborted due to ~A: ~A" (type-of value) value)))) + (if value + (with-output-as-presentation (t value 'expression) + (format t "Aborted due to ~A: ~A" (type-of value) value)) + (format t "Aborted for unknown reasons (possibly use of ~A)." 'break)))) (:abort (with-text-style (t (make-text-style nil :italic nil)) (format t "Aborted by user after ~F seconds." value)))))))))