0.6.11.23:

[sbcl.git] / src / pcl / braid.lisp

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 373ee53..d030e5b 100644 (file)
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -636,13 +636,13 @@
           (lclass-pcl-class (sb-kernel:class-pcl-class lclass))
           (olclass (cl:find-class name nil)))
       (if lclass-pcl-class
-         (assert (eq class lclass-pcl-class))
+         (aver (eq class lclass-pcl-class))
          (setf (sb-kernel:class-pcl-class lclass) class))
 
       (update-lisp-class-layout class layout)
 
       (cond (olclass
-            (assert (eq lclass olclass)))
+            (aver (eq lclass olclass)))
            (t
             (setf (cl:find-class name) lclass)))))