X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftype.impure.lisp;h=be9e55b3da9df35bf7ed323eae98d5f968e664ba;hb=8464b73339fa51c2843cacae5dee35f6a37e60fc;hp=1e5acd9d6c9baa7616dbc2a3d700cd60658397b2;hpb=1a405defbd26ca767e71494b67127fcc00a8af12;p=sbcl.git

diff --git a/tests/type.impure.lisp b/tests/type.impure.lisp
index 1e5acd9..be9e55b 100644
--- a/tests/type.impure.lisp
+++ b/tests/type.impure.lisp
@@ -436,4 +436,13 @@
   (assert (functionp (sb-pcl::ensure-ctor
                       (list 'sb-pcl::ctor (gensym)) nil nil))))
 
+;;; from PFD ansi-tests
+(let ((t1 '(cons (cons (cons (real -744833699 -744833699) cons)
+                       (integer -234496 215373))
+                 integer))
+      (t2 '(cons (cons (cons integer integer)
+                       (integer -234496 215373))
+                 t)))
+  (assert (null (values (subtypep `(not ,t2) `(not ,t1))))))
+
 ;;; success