[hyperdoc-cvs] CVS update: src/slime.patch

[Nikodemus Siivola]

Update of /project/hyperdoc/cvsroot/src
In directory common-lisp.net:/tmp/cvs-serv24215

Modified Files:
	slime.patch 
Log Message:
Use the new lookup interface.
Date: Sat Apr 24 16:55:46 2004
Author: nsiivola

Index: src/slime.patch
diff -u src/slime.patch:1.2 src/slime.patch:1.3
--- src/slime.patch:1.2	Sat Apr 24 16:07:03 2004
+++ src/slime.patch	Sat Apr 24 16:55:46 2004
@@ -5,7 +5,7 @@
 retrieving revision 1.275
 diff -u -r1.275 slime.el
 --- slime.el	23 Apr 2004 22:09:11 -0000	1.275
-+++ slime.el	24 Apr 2004 20:06:19 -0000
++++ slime.el	24 Apr 2004 20:54:56 -0000
 @@ -485,7 +485,7 @@
      ("\C-m" slime-macroexpand-1 :prefixed t :inferior t)
      ("\M-m" slime-macroexpand-all :prefixed t :inferior t)
@@ -42,7 +42,7 @@
 retrieving revision 1.83
 diff -u -r1.83 swank-sbcl.lisp
 --- swank-sbcl.lisp	6 Apr 2004 10:42:53 -0000	1.83
-+++ swank-sbcl.lisp	24 Apr 2004 20:06:19 -0000
++++ swank-sbcl.lisp	24 Apr 2004 20:54:56 -0000
 @@ -40,6 +40,7 @@
    (require 'sb-bsd-sockets)
    (require 'sb-introspect)
@@ -57,13 +57,16 @@
 retrieving revision 1.171
 diff -u -r1.171 swank.lisp
 --- swank.lisp	22 Apr 2004 21:37:50 -0000	1.171
-+++ swank.lisp	24 Apr 2004 20:06:20 -0000
-@@ -2063,6 +2063,9 @@
++++ swank.lisp	24 Apr 2004 20:54:57 -0000
+@@ -2063,6 +2063,12 @@
  			(with-connection (connection)
  			  (simple-break))))))
  
-+(defslimefun hyperdoc (name)
-+  (hyperdoc:lookup (find-symbol-designator name *buffer-package*)))
++(defslimefun hyperdoc (string)
++  (multiple-value-bind (name package-name internal-p)
++      (tokenize-symbol-designator (case-convert-input string))
++    (declare (ignore internal-p))
++    (hyperdoc:lookup package-name name)))
 +
  ;;; Local Variables:
  ;;; eval: (font-lock-add-keywords 'lisp-mode '(("(\\(defslimefun\\)\\s +\\(\\(\\w\\|\\s_\\)+\\)"  (1 font-lock-keyword-face) (2 font-lock-function-name-face))))