X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Ftarget-core.lisp;h=7cfa60da5a1c62c7f210f51ba991d1f6b1d5dc3d;hb=b19093fa94d6e1785abee99c35c9a610e8777671;hp=8e6013904c5d400add75faef13ebf8ad73b19480;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/generic/target-core.lisp b/src/compiler/generic/target-core.lisp
index 8e60139..7cfa60d 100644
--- 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))