X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure.lisp;h=3fa764a64347ec8a4fa445e68c190a7e4d2bf8ef;hb=c2ac5ba3964165ee2d21ccd4c6bf8bdc48e1a165;hp=e923afcd7cc93844b91340a051e39b0f3eb9847e;hpb=157e21959c8023f146d6b03206aea6daa60e7b0d;p=sbcl.git

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index e923afc..3fa764a 100644
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -1591,5 +1591,11 @@
 (assert (eql 13 (setf (slot-value 123 *magic-symbol*) 13)))
 (assert (eql 13 (slot-value 'foobar *magic-symbol*)))
 
+;;;; Built-in structure and condition layouts should have NIL in
+;;;; LAYOUT-FOR-STD-CLASS-P, and classes should have T.
+
+(assert (not (sb-pcl::layout-for-std-class-p (sb-pcl::find-layout 'warning))))
+(assert (not (sb-pcl::layout-for-std-class-p (sb-pcl::find-layout 'hash-table))))
+(assert (eq t (sb-pcl::layout-for-std-class-p (sb-pcl::find-layout 'standard-object))))
 
 ;;;; success