0.9.18.5: Support DISASSEMBLE for interpreted functions.

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

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index 845d70f..927f288 100644 (file)
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@ -408,4 +408,6 @@
                (let ((*default-pathname-defaults* #p"quux/"))
                  (compile-file-pathname "bar.lisp"))))
 \f
+(enough-namestring #p".a*")
+\f
 ;;;; success