[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv6366/contrib

Modified Files:
	ChangeLog slime-package-fu.el 
Log Message:
* contrib/slime-package-fu.el (slime-find-package-definition-regexp): Go
one sexp backward to the defpackage beginning.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/11/06 19:08:39	1.272
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/11/07 02:04:56	1.273
@@ -1,3 +1,8 @@
+2009-11-07  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-package-fu.el (slime-find-package-definition-regexp): Go
+	one sexp backward to the defpackage beginning.
+
 2009-11-06  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime-autodoc.el (slime-arglist): Adapted to new code.
--- /project/slime/cvsroot/slime/contrib/slime-package-fu.el	2009/02/27 17:37:14	1.5
+++ /project/slime/cvsroot/slime/contrib/slime-package-fu.el	2009/11/07 02:04:56	1.6
@@ -26,7 +26,9 @@
       (block nil
 	(while (re-search-forward slime-defpackage-regexp nil t)
 	  (when (slime-package-equal package (slime-sexp-at-point))
-	    (return (make-slime-file-location (buffer-file-name) (point)))))))))
+            (backward-sexp)
+	    (return (make-slime-file-location (buffer-file-name)
+                                              (1- (point))))))))))
 
 (defun slime-package-equal (designator1 designator2)
   ;; First try to be lucky and compare the strings themselves (for the