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

[Helmut Eller]

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

Modified Files:
	swank-abcl.lisp 
Log Message:
(print-frame): Trim whitespace to make the backtrace look a bit terser.
Date: Sat Apr  9 09:06:35 2005
Author: heller

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.24 slime/swank-abcl.lisp:1.25
--- slime/swank-abcl.lisp:1.24	Thu Feb 10 20:22:43 2005
+++ slime/swank-abcl.lisp	Sat Apr  9 09:06:35 2005
@@ -15,7 +15,8 @@
   (require :collect) ;just so that it doesn't spoil the flying letters
   (require :pprint))
 
-(defun sys::break (&optional (format-control "BREAK called") &rest format-arguments)
+(defun sys::break (&optional (format-control "BREAK called") 
+                   &rest format-arguments)
   (let ((*saved-backtrace* (sys::backtrace-as-list)))
     (with-simple-restart (continue "Return from BREAK.")
       (invoke-debugger
@@ -201,15 +202,13 @@
     (subseq (ext:backtrace-as-list) start end)))
 
 (defimplementation print-frame (frame stream)
-    (pprint frame stream))
+  (write-string (string-trim '(#\space #\newline)
+                             (prin1-to-string frame))
+                stream))
 
-#+nil
 (defimplementation frame-locals (index)
-  (let ((frame (nth-frame index)))
-    (loop for i from 0 below (debugger:frame-number-vars frame)
-	  collect (list :name (debugger:frame-var-name frame i)
-			:id 0
-			:value (debugger:frame-var-value frame i)))))
+  `((list :name "??" :id 0 :value "??")))
+
 
 (defimplementation frame-catch-tags (index)
   (declare (ignore index))