From thenriksen at common-lisp.net Thu Jul 17 08:49:05 2008 From: thenriksen at common-lisp.net (thenriksen) Date: Thu, 17 Jul 2008 04:49:05 -0400 (EDT) Subject: [mcclim-cvs] CVS mcclim/Drei Message-ID: <20080717084905.E05F77E011@common-lisp.net> Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv5581/Drei Modified Files: lisp-syntax.lisp Log Message: Patch from Tobias C. Rittweiler to add PRINT-OBJECT methods for lambda lists. --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2008/05/24 11:55:41 1.78 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2008/07/17 08:48:48 1.79 @@ -3251,6 +3251,13 @@ :reader original-lambda-list)) (:documentation "The superclass of all lambda list classes.")) +(defmethod print-object ((ll lambda-list) stream) + (print-unreadable-object (ll stream :type t :identity t) + (when (compute-applicable-methods #'lambda-list-as-list `(,ll)) + (let ((*print-length* (or *print-length* 10))) + ;; PRINC because the names of KEYWORD-PARAMETERs are keywords. + (princ (lambda-list-as-list ll) stream))))) + (defgeneric required-parameters (lambda-list) (:documentation "Return a list containing objects representing the required parameters of `lambda-list'.") @@ -3526,6 +3533,10 @@ (:documentation "The base class for all parameter classes representing a named parameter.")) +(defmethod print-object ((p named-parameter) stream) + (print-unreadable-object (p stream :type t :identity t) + (prin1 (name p) stream))) + (defmethod minimum-lambda-list-class ((parameter named-parameter)) 'semiordinary-lambda-list) @@ -3557,6 +3568,10 @@ :reader keyword-name)) (:documentation "The class for representing keyword parameters.")) +(defmethod print-object ((p keyword-parameter) stream) + (print-unreadable-object (p stream :type t :identity t) + (prin1 (keyword-name p) stream))) + (defclass destructuring-required-parameter (destructuring-parameter required-parameter) () (:documentation "The class for representing required From rstrandh at common-lisp.net Tue Jul 29 13:39:25 2008 From: rstrandh at common-lisp.net (rstrandh) Date: Tue, 29 Jul 2008 09:39:25 -0400 (EDT) Subject: [mcclim-cvs] CVS mcclim/Apps/Listener Message-ID: <20080729133925.D63101411A@common-lisp.net> 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))