[slime-cvs] CVS slime

[heller]

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

Modified Files:
	swank.lisp 
Log Message:
(open-streams): Don't pass nil to make-fn-streams; use a dummy
function as workaround.  Both arguments must be functions and CMUCL
checks the types.


--- /project/slime/cvsroot/slime/swank.lisp	2007/01/05 16:27:35	1.451
+++ /project/slime/cvsroot/slime/swank.lisp	2007/01/07 11:43:32	1.452
@@ -537,7 +537,10 @@
             (let* ((repl-results-fn
                     (make-output-function-for-target connection :repl-result))
                    (repl-results
-                    (nth-value 1 (make-fn-streams nil repl-results-fn))))
+                    (nth-value 1 (make-fn-streams 
+                                  (lambda ()
+                                    (error "Should never be called"))
+                                  repl-results-fn))))
               (values dedicated-output in out io repl-results))))))))
 
 (defun make-output-function (connection)