X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftype.pure.lisp;h=6eea7d3ee23947a2c47f9b9b31cf0b3ab79141e1;hb=11b5ac86a98f058fe0375b0a707c6ef9e24590c9;hp=4e3ca06eca0b5f67a2d27f68454b00e29c6444fa;hpb=53f576d7d796e37a9c51c3c3296341458f046c44;p=sbcl.git

diff --git a/tests/type.pure.lisp b/tests/type.pure.lisp
index 4e3ca06..6eea7d3 100644
--- a/tests/type.pure.lisp
+++ b/tests/type.pure.lisp
@@ -420,3 +420,7 @@ ACTUAL ~D DERIVED ~D~%"
         (let ((i (sb-c::values-type-intersection x y)))
           (assert (sb-c::type= i (sb-c::values-type-intersection i x)))
           (assert (sb-c::type= i (sb-c::values-type-intersection i y))))))))
+
+(with-test (:name :bug-485972)
+  (assert (equal (multiple-value-list (subtypep 'symbol 'keyword)) '(nil t)))
+  (assert (equal (multiple-value-list (subtypep 'keyword 'symbol)) '(t t))))