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

[Helmut Eller]

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

Modified Files:
	swank-lispworks.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:04:01 2004
Author: heller

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.42 slime/swank-lispworks.lisp:1.43
--- slime/swank-lispworks.lisp:1.42	Wed Jun  9 05:40:52 2004
+++ slime/swank-lispworks.lisp	Wed Jun 16 15:04:01 2004
@@ -64,7 +64,8 @@
   (sys::set-signal-handler +sigint+ 
                            (make-sigint-handler mp:*current-process*)))
 
-(defimplementation emacs-connected ()
+(defimplementation emacs-connected (stream)
+  (declare (ignore stream))
   (set-sigint-handler)
   (let ((lw:*handle-warn-on-redefinition* :warn))
     (defmethod stream:stream-soft-force-output  ((o comm:socket-stream))
@@ -226,10 +227,10 @@
 	(push frame backtrace)))))
 
 (defun frame-actual-args (frame)
-    (mapcar (lambda (arg)
-              (handler-case (dbg::dbg-eval arg frame)
-                (error (format nil "<~A>" arg))))
-            (dbg::call-frame-arglist frame)))
+  (mapcar (lambda (arg)
+            (handler-case (dbg::dbg-eval arg frame)
+              (error (format nil "<~A>" arg))))
+          (dbg::call-frame-arglist frame)))
 
 (defimplementation print-frame (frame stream)
   (cond ((dbg::call-frame-p frame)
@@ -475,7 +476,7 @@
     (loop for object across callers
           collect (if (symbolp object)
 		      (list 'function object)
-		    (dspec:object-dspec object)))))
+                      (dspec:object-dspec object)))))
 
 ;; only for lispworks 4.2 and above
 #-lispworks4.1