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

[Andras Simon]

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

Modified Files:
	swank-abcl.lisp 
Log Message:
find-definitions
Date: Wed Jun 16 12:39:06 2004
Author: asimon

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.1 slime/swank-abcl.lisp:1.2
--- slime/swank-abcl.lisp:1.1	Wed Jun  9 13:08:16 2004
+++ slime/swank-abcl.lisp	Wed Jun 16 12:39:06 2004
@@ -254,6 +254,19 @@
 
 |#
 
+(defun source-location (symbol)
+  (when (ext:source symbol)
+    `(((,symbol)
+       (:location 
+        (:file ,(namestring (ext:source-pathname symbol)))
+        (:position ,(ext:source-file-position symbol) t)
+        (:snippet nil))))))
+  
+
+(defimplementation find-definitions (symbol)
+  (source-location symbol))
+
+
 #|
 Should work (with a patched xref.lisp) but is it any use without find-definitions?
 ;;;; XREF