[mcclim-cvs] CVS update: mcclim/presentation-defs.lisp

[Timothy Moore]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv16684

Modified Files:
	presentation-defs.lisp 
Log Message:

In presentation method (present t t t textual-view), do the right
thing with the :acceptably keyword argument i.e., arrange for Common
Lisp to throw an error for unreadable stuff.


Date: Sat Jan 22 14:31:08 2005
Author: tmoore

Index: mcclim/presentation-defs.lisp
diff -u mcclim/presentation-defs.lisp:1.40 mcclim/presentation-defs.lisp:1.41
--- mcclim/presentation-defs.lisp:1.40	Wed Jan 19 14:44:46 2005
+++ mcclim/presentation-defs.lisp	Sat Jan 22 14:31:08 2005
@@ -829,7 +829,7 @@
       (with-input-position (stream)	; support for calls to replace-input
 	(setf (values sensitizer-object sensitizer-type)
 	      (with-input-context (type)
-		(object object-type event options)
+		  (object object-type event options)
 		(with-activation-gestures ((if additional-activations-p
 					       additional-activation-gestures
 					       activation-gestures)
@@ -996,8 +996,12 @@
 
 (define-default-presentation-method present
     (object type stream (view textual-view) &key acceptably for-context-type)
-  (declare (ignore acceptably for-context-type))
-  (princ object stream))
+  (declare (ignore for-context-type type))
+  (if acceptably
+      (let ((*print-readably* t))
+	(prin1 object stream))
+      (princ object stream)))
+
 
 (defun accept-using-read (stream ptype &key ((:read-eval *read-eval*) nil))
   (let* ((token (read-token stream)))