X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fcache.lisp;h=d908ea4ac843b57e2df982b616c640f964248b52;hb=d147d512602d761a2dcdfded506dd1a8f9a140dc;hp=bf3ce0dff87f69fa3892422e6822d45ec306de6d;hpb=cbaa1997bb097a55d108df592ac3b7eb4a703fff;p=sbcl.git

diff --git a/src/pcl/cache.lisp b/src/pcl/cache.lisp
index bf3ce0d..d908ea4 100644
--- a/src/pcl/cache.lisp
+++ b/src/pcl/cache.lisp
@@ -335,9 +335,9 @@
      (found
       (unless (sb-kernel:class-pcl-class found)
 	(setf (sb-kernel:class-pcl-class found) class))
-      (assert (eq (sb-kernel:class-pcl-class found) class))
+      (aver (eq (sb-kernel:class-pcl-class found) class))
       (let ((layout (sb-kernel:class-layout found)))
-	(assert layout)
+	(aver layout)
 	layout))
      (t
       (make-wrapper-internal
@@ -370,7 +370,7 @@
 		     (let ((found (cl:find-class (slot-value class 'name))))
 		       (unless (sb-kernel:class-pcl-class found)
 			 (setf (sb-kernel:class-pcl-class found) class))
-		       (assert (eq (sb-kernel:class-pcl-class found) class))
+		       (aver (eq (sb-kernel:class-pcl-class found) class))
 		       found))
 		    (t
 		     (sb-kernel:make-standard-class :pcl-class class))))
@@ -381,8 +381,8 @@
 	   (layout (sb-kernel:class-layout found)))
       (unless (sb-kernel:class-pcl-class found)
 	(setf (sb-kernel:class-pcl-class found) class))
-      (assert (eq (sb-kernel:class-pcl-class found) class))
-      (assert layout)
+      (aver (eq (sb-kernel:class-pcl-class found) class))
+      (aver layout)
       layout))))
 
 ;;; FIXME: The immediately following macros could become inline functions.