0.6.11.23:

[sbcl.git] / src / compiler / generic / target-core.lisp

diff --git a/src/compiler/generic/target-core.lisp b/src/compiler/generic/target-core.lisp
index 6a22302..7cfa60d 100644 (file)
--- a/src/compiler/generic/target-core.lisp
+++ b/src/compiler/generic/target-core.lisp
@@ -157,7 +157,7 @@
                        (load-type-predicate (type-specifier (cdr const))))))
               (:xep
                (let ((xep (cdr (assoc (cdr const) xeps :test #'eq))))
-                 (assert xep)
+                 (aver xep)
                  (setf (code-header-ref code-obj code-obj-index) xep))))))))))
 
   (values))