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

[Luke Gorrie]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
Fixed for (and requires) 0.8.20.

Date: Thu Mar  3 00:50:29 2005
Author: lgorrie

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.119 slime/swank-sbcl.lisp:1.120
--- slime/swank-sbcl.lisp:1.119	Tue Mar  1 00:32:06 2005
+++ slime/swank-sbcl.lisp	Thu Mar  3 00:50:29 2005
@@ -504,7 +504,7 @@
 
 (defimplementation print-frame (frame stream)
   (let ((*standard-output* stream))
-    (sb-debug::print-frame-call frame :verbosity 1 :number nil)))
+    (sb-debug::print-frame-call frame stream :verbosity 1 :number nil)))
 
 (defun code-location-source-path (code-location)
   (let* ((location (sb-debug::maybe-block-start-location code-location))
@@ -554,8 +554,8 @@
       (:lisp
        (make-location
         (list :source-form (with-output-to-string (*standard-output*)
-                             (sb-debug::print-code-location-source-form
-                              code-location 100)))
+                             (print (sb-debug::code-location-source-form
+                                     code-location 100))))
         (list :position 0))))))
 
 (defun safe-source-location-for-emacs (code-location)