[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-hyperspec-lookup): Don't get confused by a cl: or common-lisp:
package prefix.


--- /project/slime/cvsroot/slime/slime.el	2006/03/26 21:19:53	1.606
+++ /project/slime/cvsroot/slime/slime.el	2006/03/27 07:14:32	1.607
@@ -6924,15 +6924,20 @@
 
 (defun slime-hyperspec-lookup (symbol-name)
   "A wrapper for `hyperspec-lookup'"
-  (interactive (list (let ((symbol-at-point (slime-symbol-name-at-point)))
-                       (if (and symbol-at-point
-                                (intern-soft (downcase symbol-at-point)
+  (interactive (list (let* ((symbol-at-point (slime-symbol-name-at-point))
+                            (stripped-symbol 
+                             (and symbol-at-point
+                                  (downcase
+                                   (common-lisp-hyperspec-strip-cl-package 
+                                    symbol-at-point)))))
+                       (if (and stripped-symbol
+                                (intern-soft stripped-symbol
                                              common-lisp-hyperspec-symbols))
-                           symbol-at-point
+                           stripped-symbol
                          (completing-read
                           "Look up symbol in Common Lisp HyperSpec: "
                           common-lisp-hyperspec-symbols #'boundp
-                          t symbol-at-point
+                          t stripped-symbol
                           'common-lisp-hyperspec-history)))))
   (hyperspec-lookup symbol-name))