more tweaks to janky-parse-package

cbaggers · Apr 4, 2018 · 345fed9 · 345fed9
1 parent 0cd6683
commit 345fed9
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/src/vari.cl/docs.lisp b/src/vari.cl/docs.lisp
@@ -9,11 +9,13 @@
     (symbol (find-package (symbol-name symbol/string)))
     (string (or (find-package symbol/string)
                 (find-package (string-upcase symbol/string))
-                (let ((pos (position #\: symbol/string :test #'char=)))
-                  (when (eql pos 0)
-                    (let ((name (subseq symbol/string 1)))
-                      (find-package name)
-                      (find-package (string-upcase name)))))))))
+                (let* ((name (string symbol/string))
+                       (pos (position #\: name :test #'char=)))
+                  (when (or (eql pos 0)
+                            (eql pos 1))
+                    (let ((name (subseq name (1+ pos))))
+                      (or (find-package name)
+                          (find-package (string-upcase name))))))))))
 
 (defun janky-parse-name (str try-package)
   (flet ((inner (str package)