[slime-cvs] CVS update: slime/swank-allegro.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv10616

Modified Files:
	swank-allegro.lisp 
Log Message:
(emacs-connected): Pass the redirected stream as argument, so that the
OpenMCL backend can add it to CCL::*AUTO-FLUSH-STREAMS*.

Date: Wed Jun 16 15:03:55 2004
Author: heller

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.35 slime/swank-allegro.lisp:1.36
--- slime/swank-allegro.lisp:1.35	Wed Jun 16 13:27:14 2004
+++ slime/swank-allegro.lisp	Wed Jun 16 15:03:55 2004
@@ -48,7 +48,8 @@
 ;; The following defitinions are workarounds for the buggy
 ;; no-applicable-method function in Allegro 5.  We have to provide an
 ;; implementation.
-(defimplementation emacs-connected ())
+(defimplementation emacs-connected (stream)
+  (declare (ignore stream)))
 
 (defimplementation format-sldb-condition (c)
   (princ-to-string c))