# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1460496304 0
# Node ID b806d22cf6657ced5304511b7ea851c0d0676b33
# Parent  051685b12e071f7f0fead8e7285f6cb9c0d8bfd1
Fix symbol lookup a bit

diff -r 051685b12e07 -r b806d22cf665 src/middleware/documentation.lisp
--- a/src/middleware/documentation.lisp	Sat Apr 09 23:22:05 2016 +0000
+++ b/src/middleware/documentation.lisp	Tue Apr 12 21:25:04 2016 +0000
@@ -27,21 +27,24 @@
 
     FOO (assumes the current package)
     P:FOO (looks in package P)
+    :FOO (keyword)
 
   "
   ;; TODO: add support for:
   ;;   P::FOO
-  ;;   :KEYWORD
   (flet ((split-string (s delim)
            (let ((idx (position delim s)))
              (if idx
                (cons (subseq s 0 idx)
                      (subseq s (1+ idx)))
                (cons nil s)))))
-    (destructuring-bind (pack . symb) (split-string (string-upcase name) #\:)
-      (find-symbol symb (if pack
-                          (find-package pack)
-                          *package*)))))
+    (destructuring-bind (package-name . symbol-name)
+        (split-string (string-upcase name) #\:)
+      (find-symbol symbol-name
+                   (cond
+                     ((null package-name) *package*) ; no : at all
+                     ((string= "" package-name) (find-package "KEYWORD")) ; :keyw
+                     (t (find-package package-name))))))) ; pack:sym
 
 
 (define-middleware wrap-documentation "documentation" message