1 files changed, 18 insertions, 0 deletions
diff --git a/vim/bundle/slimv/slime/contrib/swank-hyperdoc.lisp b/vim/bundle/slimv/slime/contrib/swank-hyperdoc.lisp
new file mode 100644
index 0000000..1e34a1d
--- /dev/null
+++ b/vim/bundle/slimv/slime/contrib/swank-hyperdoc.lisp
@@ -0,0 +1,18 @@
+(in-package :swank)
+
+(defslimefun hyperdoc (string)
+  (let ((hyperdoc-package (find-package :hyperdoc)))
+    (when hyperdoc-package
+      (multiple-value-bind (symbol foundp symbol-name package)
+          (parse-symbol string *buffer-package*)
+        (declare (ignore symbol))
+        (when foundp
+          (funcall (find-symbol (string :lookup) hyperdoc-package)
+                   (package-name (if (member package (cons *buffer-package*
+                                                           (package-use-list
+                                                            *buffer-package*)))
+                                     *buffer-package*
+                                     package))
+                   symbol-name))))))
+
+(provide :swank-hyperdoc)