X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftype.pure.lisp;h=593e45e1bcf0783b35edee3de00a00f8fa351753;hb=01e9e8c568777d6480699e6cb3947f38c3bed350;hp=55e2575d41be194acb71f5d25aa47aa647fff297;hpb=ba2010734297dc7e9b06b1199afc5bc806b50dfc;p=sbcl.git

diff --git a/tests/type.pure.lisp b/tests/type.pure.lisp
index 55e2575..593e45e 100644
--- a/tests/type.pure.lisp
+++ b/tests/type.pure.lisp
@@ -330,3 +330,6 @@ ACTUAL ~D DERIVED ~D~%"
   (sb-kernel:type=
    (sb-kernel:specifier-type '(simple-array an-unkown-type (7)))
    (sb-kernel:specifier-type '(simple-array an-unkown-type (8))))))
+
+(assert (typep #p"" 'sb-kernel:instance))
+(assert (subtypep '(member #p"") 'sb-kernel:instance))