+ (defstruct defstruct-no-warning-not-at-toplevel bar))))))
+
+(with-test (:name :bug-941102)
+ (let ((test `((defstruct bug-941102)
+ (setf (find-class 'bug-941102-alias) (find-class 'bug-941102))
+ (setf (find-class 'bug-941102-alias) nil))))
+ (multiple-value-bind (warn fail) (ctu:file-compile test :load t)
+ (assert (not warn))
+ (assert (not fail)))
+ (multiple-value-bind (warn2 fail2) (ctu:file-compile test)
+ (assert (not warn2))
+ (assert (not fail2)))))
+
+(with-test (:name (defstruct :constant-slot-names))
+ (defstruct defstruct-constant-slot-names t)
+ (assert (= 3 (defstruct-constant-slot-names-t
+ (make-defstruct-constant-slot-names :t 3)))))