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

[Alan Ruttenberg]

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

Modified Files:
	swank-abcl.lisp 
Log Message:

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

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.32 slime/swank-abcl.lisp:1.33
--- slime/swank-abcl.lisp:1.32	Tue Jan  3 05:05:52 2006
+++ slime/swank-abcl.lisp	Tue Jan  3 05:46:52 2006
@@ -192,7 +192,7 @@
 
 (defun backtrace-as-list-ignoring-swank-calls ()
   (let ((list (ext:backtrace-as-list)))
-    (subseq list (1+ (or (position '(intern SWANK-DEBUGGER-HOOK 'swank) 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)))