[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	swank.lisp 
Log Message:
(make-presentations-result): New, factored out from
listener-eval. 
(listener-eval): Use it here.


--- /project/slime/cvsroot/slime/swank.lisp	2006/11/03 17:35:00	1.416
+++ /project/slime/cvsroot/slime/swank.lisp	2006/11/04 12:02:29	1.417
@@ -2623,6 +2623,12 @@
   (let ((p (setq *package* (guess-package-from-string package))))
     (list (package-name p) (package-string-for-prompt p))))
 
+(defun make-presentations-result (values)
+  ;; overridden in present.lisp
+  `(:present ,(loop for x in values 
+                    collect (cons (prin1-to-string x) 
+                                  (save-presented-object x)))))
+
 (defslimefun listener-eval (string)
   (clear-user-input)
   (with-buffer-syntax ()
@@ -2636,9 +2642,7 @@
 	(setq +++ ++  ++ +  + last-form)
         (cond ((eq *slime-repl-suppress-output* t) '(:suppress-output))
               (*record-repl-results*
-               `(:present ,(loop for x in values 
-                                 collect (cons (prin1-to-string x) 
-                                               (save-presented-object x)))))
+               (make-presentations-result values))
               (t 
                `(:values ,(mapcar #'prin1-to-string values))))))))