/[slime]/slime/contrib/swank-hyperdoc.lisp
ViewVC logotype

Contents of /slime/contrib/swank-hyperdoc.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Sat Mar 10 00:04:12 2012 UTC (2 years, 1 month ago) by sboukarev
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +2 -0 lines
swank-motd.lisp, swank-hyperdoc.lisp: Add provide.
1 (in-package :swank)
2
3 (defslimefun hyperdoc (string)
4 (let ((hyperdoc-package (find-package :hyperdoc)))
5 (when hyperdoc-package
6 (multiple-value-bind (symbol foundp symbol-name package)
7 (parse-symbol string *buffer-package*)
8 (declare (ignore symbol))
9 (when foundp
10 (funcall (find-symbol (string :lookup) hyperdoc-package)
11 (package-name (if (member package (cons *buffer-package*
12 (package-use-list
13 *buffer-package*)))
14 *buffer-package*
15 package))
16 symbol-name))))))
17
18 (provide :swank-hyperdoc)

  ViewVC Help
Powered by ViewVC 1.1.5