0.8alpha.0.34:

[sbcl.git] / tests / clos.impure.lisp

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index 2f642b5..07e1cdc 100644 (file)
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -610,5 +610,11 @@
   (assert (= (slot-value x 'name) 1))
   (assert (= (slot-value x 'cl-user::name) 2)))
 \f
+;;; ALLOCATE-INSTANCE should work on structures, even if defined by
+;;; DEFSTRUCT (and not DEFCLASS :METACLASS STRUCTURE-CLASS).
+(defstruct allocatable-structure a)
+(assert (typep (allocate-instance (find-class 'allocatable-structure))
+              'allocatable-structure))
+\f
 ;;;; success
 (sb-ext:quit :unix-status 104)