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

[Luke Gorrie]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
Updated for revisted sb-introspect patch:
s/DEFINITION-SOURCE-CREATED/DEFINITION-SOURCE-WRITE-DATE/

Date: Sun Mar 13 03:57:46 2005
Author: lgorrie

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.122 slime/swank-sbcl.lisp:1.123
--- slime/swank-sbcl.lisp:1.122	Sat Mar 12 02:50:15 2005
+++ slime/swank-sbcl.lisp	Sun Mar 13 03:57:45 2005
@@ -361,7 +361,7 @@
          (position (sb-introspect:definition-source-character-offset def))
          (stamp
           ;; FIXME: Symbol doesn't exist in released SBCL yet.
-          (let ((sym (find-symbol "DEFINITION-SOURCE-CREATED"
+          (let ((sym (find-symbol "DEFINITION-SOURCE-FILE-WRITE-DATE"
                                   (find-package "SB-INTROSPECT"))))
             (when sym (funcall sym def)))))
     (unless pathname