[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el 
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/slime.el	2008/02/24 16:50:48	1.913
+++ /project/slime/cvsroot/slime/slime.el	2008/02/28 19:45:32	1.914
@@ -2935,7 +2935,7 @@
          (cond ((null strings)
                 (slime-repl-emit-result "; No value\n" t))
                (t
-                (dolist (s strings) 
+                (dolist (s strings)
                   (slime-repl-emit-result s t)))))))
     (slime-repl-insert-prompt)))
 
@@ -5155,7 +5155,7 @@
           (1loc
            (slime-push-definition-stack)
            (slime-pop-to-location (slime-xref.location (car xrefs)) where))
-          ((= (length xrefs) 1)
+          ((slime-length= xrefs 1)      ; ((:error "..."))
            (error "%s" (cadr (slime-xref.location (car xrefs)))))
           (t
            (slime-push-definition-stack)