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))))