0.6.12.13:

[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 8e60139..7cfa60d 100644 (file)
--- a/src/compiler/generic/target-core.lisp
+++ b/src/compiler/generic/target-core.lisp
@@ -12,9 +12,6 @@
 
 (in-package "SB!C")
 
-(file-comment
-  "$Header$")
-
 ;;; Make a function entry, filling in slots from the ENTRY-INFO.
 (defun make-function-entry (entry code-obj object)
   (declare (type entry-info entry) (type core-object object))
@@ -160,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))