[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el 
Log Message:

* slime.el (slime-edit-definition-cont): If no definition could
  be found, print also the package name in the error message where
  the definition was tried to be found in.


--- /project/slime/cvsroot/slime/slime.el	2008/03/13 10:43:26	1.921
+++ /project/slime/cvsroot/slime/slime.el	2008/03/13 15:20:25	1.922
@@ -2216,7 +2216,7 @@
 If `slime-buffer-package' has a value then return that, otherwise
 search for and read an `in-package' form.
 
-The REPL buffer is a special case: it's package is `slime-lisp-package'."
+The REPL buffer is a special case: its package is `slime-lisp-package'."
   (cond ((eq major-mode 'slime-repl-mode)
          (slime-lisp-package))
         (slime-buffer-package)
@@ -5160,7 +5160,8 @@
 (defun slime-edit-definition-cont (xrefs name where)
   (destructuring-bind (1loc file-alist) (slime-analyze-xrefs xrefs)
     (cond ((null xrefs) 
-           (error "No known definition for: %s" name))
+           (error "No known definition for: %s (in %s)" 
+                  name (or (slime-current-package) (slime-lisp-package))))
           (1loc
            (slime-push-definition-stack)
            (slime-pop-to-location (slime-xref.location (car xrefs)) where))