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

[Andras Simon]

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

Modified Files:
	swank-abcl.lisp 
Log Message:

source-location: conform to abcl's new protocol (Peter Graves)
pprint frames


Date: Thu Feb 10 20:22:44 2005
Author: asimon

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.23 slime/swank-abcl.lisp:1.24
--- slime/swank-abcl.lisp:1.23	Mon Nov 29 18:35:03 2004
+++ slime/swank-abcl.lisp	Thu Feb 10 20:22:43 2005
@@ -201,7 +201,7 @@
     (subseq (ext:backtrace-as-list) start end)))
 
 (defimplementation print-frame (frame stream)
-    (print frame stream))
+    (pprint frame stream))
 
 #+nil
 (defimplementation frame-locals (index)
@@ -316,13 +316,13 @@
 |#
 
 (defun source-location (symbol)
-  (when (ext:source symbol)
+  (when (pathnamep (ext:source-pathname symbol))
     `(((,symbol)
        (:location 
         (:file ,(namestring (ext:source-pathname symbol)))
         (:position ,(or (ext:source-file-position symbol) 0) t)
         (:snippet nil))))))
-  
+
 
 (defimplementation find-definitions (symbol)
   (source-location symbol))