X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftype.impure.lisp;h=5e6540af4b1e6301f91204a665582ebc9ad7237d;hb=68ea71d0f020f2726e3c56c1ec491d0af734b3a4;hp=caaefafa3fc6035f9fa66716ad8e89800e3b3f40;hpb=cb43defd8ce791c9c5a8302c0bca20fcd1b60749;p=sbcl.git

diff --git a/tests/type.impure.lisp b/tests/type.impure.lisp
index caaefaf..5e6540a 100644
--- a/tests/type.impure.lisp
+++ b/tests/type.impure.lisp
@@ -544,4 +544,11 @@
 (assert (not (typep #'print-object '(and standard-object sb-kernel:instance))))
 (assert (not (subtypep 'standard-object '(and standard-object sb-kernel:instance))))
 
+(assert-t-t
+ (subtypep '(or simple-array simple-string) '(or simple-string simple-array)))
+(assert-t-t
+ (subtypep '(or simple-string simple-array) '(or simple-array simple-string)))
+(assert-t-t
+ (subtypep '(or fixnum simple-string end-of-file parse-error fixnum vector)
+           '(or fixnum vector end-of-file parse-error fixnum simple-string)))
 ;;; success