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

[Luke Gorrie]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(swank-compile-string): Include only one :SOURCE-PATH attribute in the
plist, and replace the front element with a 0 (fixes a problem
probably due to recent hacks to the elisp source-path lookups).

Date: Tue Oct 21 15:37:21 2003
Author: lgorrie

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.11 slime/swank-sbcl.lisp:1.12
--- slime/swank-sbcl.lisp:1.11	Mon Oct 20 09:56:44 2003
+++ slime/swank-sbcl.lisp	Tue Oct 21 15:36:23 2003
@@ -287,9 +287,10 @@
          (setf *compiler-notes* 
                (loop for n in *compiler-notes*
                      for sp = (getf n :source-path)
-                     do (setf (getf n :source-path) (cdr sp))
+                     ;; account for the added lambda, replace leading
+                     ;; position with 0
+                     do (setf (getf n :source-path) (cons 0 (cddr sp)))
                      collect (list* :buffername buffer 
-                                    :source-path (cdr sp)
                                     :buffer-offset start
                                     n))))))))