[slime-cvs] CVS slime

[mkoeppe]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv30703

Modified Files:
	present.lisp 
Log Message:
Support nested presentations in REPL results, when present.lisp is
loaded. 

* present.lisp (make-presentations-result): Override it here.


--- /project/slime/cvsroot/slime/present.lisp	2006/02/17 01:33:20	1.18
+++ /project/slime/cvsroot/slime/present.lisp	2006/11/04 12:02:09	1.19
@@ -168,6 +168,21 @@
 	  (write-annotation stream #'presentation-end record)))
       (funcall continue)))
 
+(defun make-presentations-result (values)
+  ;; Override a function in swank.lisp, so that 
+  ;; nested presentations work in the REPL result.
+  (cond 
+    ((null values)
+     '(:values ()))
+    (t
+     ;; Do the output ourselves.
+     (fresh-line)
+     (dolist (o values)
+       (presenting-object o *standard-output*
+	 (prin1 o))
+       (terpri))
+     '(:suppress-output))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ;; Example: Tell openmcl and cmucl to always present unreadable objects. try (describe 'class)