X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure.lisp;h=07e1cdca9858177a6bb84e0b0e0d3adf9482ceb3;hb=f1407e424f1063203af07d2e61ceef58515a4797;hp=2f642b56ceeed3da82c65fd5ad83033b3a4b868c;hpb=6f095a43607506faaceedb8b22633a5770bd7f7a;p=sbcl.git

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index 2f642b5..07e1cdc 100644
--- 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)))
 
+;;; 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))
+
 ;;;; success
 (sb-ext:quit :unix-status 104)