[slime-cvs] CVS slime

[trittweiler]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv16355

Modified Files:
	swank-backend.lisp 
Log Message:

* swank.lisp (find-definition-for-thing): New DEFSLIMEFUN.

* swank-backend (find-source-location): New DEFINTERFACE.

* swank-sbcl (find-source-location): Implement it.

* slime.el (slime-edit-definition-cont): Use `slime-length='.


--- /project/slime/cvsroot/slime/swank-backend.lisp	2008/02/09 18:47:05	1.129
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2008/02/28 19:44:29	1.130
@@ -745,11 +745,25 @@
 
 LOCATION is the source location for the definition.")
 
+(definterface find-source-location (object)
+  "Returns the source location of OBJECT, or NIL.
+
+That is the source location of the underlying datastructure of
+OBJECT. E.g. on a STANDARD-OBJECT, the source location of the
+respective DEFCLASS definition is returned, on a STRUCTURE-CLASS the
+respective DEFSTRUCT definition, and so on."
+  ;; This returns _ source location and not a list of locations. It's
+  ;; supposed to return the location of the DEFGENERIC definition on
+  ;; #'SOME-GENERIC-FUNCTION.
+  )
+
+
 (definterface buffer-first-change (filename)
   "Called for effect the first time FILENAME's buffer is modified."
   (declare (ignore filename))
   nil)
 
+
 
 ;;;; XREF