X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefbangstruct.lisp;h=67e669b916eb85726c039d6d5628b57991307137;hb=d147d512602d761a2dcdfded506dd1a8f9a140dc;hp=e4d8a2ee7a7d7d2949a9228199cbbb4703f97c57;hpb=02ce4b1b927f1312c300047bd5a0db6663a1d2c6;p=sbcl.git

diff --git a/src/code/defbangstruct.lisp b/src/code/defbangstruct.lisp
index e4d8a2e..67e669b 100644
--- a/src/code/defbangstruct.lisp
+++ b/src/code/defbangstruct.lisp
@@ -38,8 +38,8 @@
       value))
   (defun (setf def!struct-supertype) (value type)
     (when (and value #-sb-xc-host *type-system-initialized*)
-      (assert (subtypep value 'structure!object))
-      (assert (subtypep type value)))
+      (aver (subtypep value 'structure!object))
+      (aver (subtypep type value)))
     (setf (gethash type *def!struct-supertype*) value))
 
   ;; (DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN TYPE) is the load form
@@ -67,7 +67,7 @@
 		 type)))))
   (defun (setf def!struct-type-make-load-form-fun) (new-value type)
     (when #+sb-xc-host t #-sb-xc-host *type-system-initialized*
-      (assert (subtypep type 'structure!object))
+      (aver (subtypep type 'structure!object))
       (check-type new-value def!struct-type-make-load-form-fun))
     (setf (gethash type *def!struct-type-make-load-form-fun*) new-value)))
 
@@ -129,7 +129,7 @@
 	(when include-clause
 	  (setf def!struct-supertype (second include-clause)))
 	(if (eq name 'structure!object) ; if root of hierarchy
-	  (assert (not include-clause))
+	  (aver (not include-clause))
 	  (unless include-clause
 	    (setf def!struct-supertype 'structure!object)
 	    (push `(:include ,def!struct-supertype) options)))