Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv15654
Modified Files: presentation-defs.lisp Log Message: Made the `string' present method respect the :accept keyword argument, updated an example program to exploit this.
--- /project/mcclim/cvsroot/mcclim/presentation-defs.lisp 2007/02/05 03:06:14 1.70 +++ /project/mcclim/cvsroot/mcclim/presentation-defs.lisp 2007/02/10 21:32:22 1.71 @@ -1618,8 +1618,10 @@ (define-presentation-method present (object (type string) stream (view textual-view) &key acceptably for-context-type) - (declare (ignore acceptably for-context-type)) - (princ object stream)) + (declare (ignore for-context-type)) + (if acceptably + (prin1 object stream) + (princ object stream)))
(define-presentation-method accept ((type string) stream (view textual-view) &key (default nil defaultp)