X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.impure.lisp;h=d437d1cfeac1dbea0636c8c6945f391a5cd5e859;hb=9045aca85bf17b5a49c01e419a03b84704316fbe;hp=230c2d02967e177ca61943e966bfa63e394ec654;hpb=d6d9685c52de37bd25233512984b412798c1be60;p=sbcl.git

diff --git a/tests/compiler.impure.lisp b/tests/compiler.impure.lisp
index 230c2d0..d437d1c 100644
--- a/tests/compiler.impure.lisp
+++ b/tests/compiler.impure.lisp
@@ -2234,4 +2234,16 @@
            (cdr (assoc symbol exported-symbols-alist)))))
      :load nil)))
 
+(test-util:with-test (:name :bug-308941)
+  (multiple-value-bind (warn fail)
+      (let ((*check-consistency* t))
+        (ctu:file-compile
+         "(eval-when (:compile-toplevel :load-toplevel :execute)
+            (defstruct foo3))
+          (defstruct bar
+            (foo #.(make-foo3)))"
+         :load nil))
+    ;; ...but the compiler should not break.
+    (assert (and warn fail))))
+
 ;;; success