[slime-cvs] CVS slime/contrib

[mkoeppe]

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

Modified Files:
	swank-presentation-streams.lisp 
Log Message:
Require swank-presentations.
(present-repl-results-via-presentation-streams): New.
(*send-repl-results-function*): Set this variable rather than
overriding send-repl-results-to-emacs.


--- /project/slime/cvsroot/slime/contrib/swank-presentation-streams.lisp	2007/08/25 03:59:56	1.3
+++ /project/slime/cvsroot/slime/contrib/swank-presentation-streams.lisp	2007/08/28 16:26:32	1.4
@@ -10,6 +10,8 @@
 
 (in-package :swank)
 
+(swank-require :swank-presentations)
+
 ;; This file contains a mechanism for printing to the slime repl so
 ;; that the printed result remembers what object it is associated
 ;; with.  This extends the recording of REPL results.
@@ -222,7 +224,7 @@
 	    (write-annotation stream #'presentation-end record)))
 	(funcall continue))))
 
-(defun send-repl-results-to-emacs (values)
+(defun present-repl-results-via-presentation-streams (values)
   ;; Override a function in swank.lisp, so that 
   ;; nested presentations work in the REPL result.
   (let ((repl-results (connection.repl-results *emacs-connection*)))
@@ -310,4 +312,8 @@
   (excl:fwrap 'excl::pathname-printer 
 	      'print-pathname-present 'presenting-pathname-wrapper))
 
+;; Hook into SWANK.
+
+(setq *send-repl-results-function* 'present-repl-results-via-presentation-streams)
+
 (provide :swank-presentation-streams)