0.8.0.72:

[sbcl.git] / tests / reader.impure.lisp

diff --git a/tests/reader.impure.lisp b/tests/reader.impure.lisp
index c3c8f4e..b71a2ee 100644 (file)
--- a/tests/reader.impure.lisp
+++ b/tests/reader.impure.lisp
@@ -66,5 +66,10 @@
             (read-from-string "#S(READABLE-STRUCT :A T)"))
            t))
 
+;;; reported by Henrik Motakef
+(defpackage "")
+(assert (eq (symbol-package (read-from-string "||::FOO"))
+           (find-package "")))
+
 ;;; success
 (quit :unix-status 104)