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

Modified Files: dev-commands.lisp Log Message: Make sure *application-frame* is inherited by the thread that evaluates a form, or else, large parts of CLIM will be unusable from the listener REPL.

--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2008/05/27 16:00:58 1.60 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2008/07/29 13:39:25 1.61 @@ -1520,12 +1520,14 @@ (define-command (com-eval :menu t :command-table lisp-commands) ((form 'clim:form :prompt "form")) (let ((standard-output *standard-output*) - (standard-input *standard-input*)) + (standard-input *standard-input*) + (application-frame *application-frame*)) (flet ((evaluate () (let ((- form) (*standard-output* standard-output) (*standard-input* standard-input) (*error-output* standard-output) + (*application-frame* application-frame) error success) (unwind-protect (handler-case (prog1 (cons :values (multiple-value-list (eval form))) (setf success t))