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

Tue Jan 3 04:05:52 UTC 2006

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

Modified Files:
	swank-abcl.lisp 
Log Message:

Date: Tue Jan  3 05:05:52 2006
Author: aruttenberg

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.31 slime/swank-abcl.lisp:1.32

--- slime/swank-abcl.lisp:1.31	Tue Jan  3 04:58:39 2006
+++ slime/swank-abcl.lisp	Tue Jan  3 05:05:52 2006
@@ -192,7 +192,7 @@
 
 (defun backtrace-as-list-ignoring-swank-calls ()
   (let ((list (ext:backtrace-as-list)))
-    (subseq list (1+ (or (position 'swank::swank-debugger-hook list :key 'car) -1)))))
+    (subseq list (1+ (or (position '(intern SWANK-DEBUGGER-HOOK 'swank) list :key 'car) -1)))))
 
 (defimplementation call-with-debugging-environment (debugger-loop-fn)
   (let ((*sldb-topframe* (car (backtrace-as-list-ignoring-swank-calls)) #+nil (excl::int-newest-frame)))


