0.6.12.49:

[sbcl.git] / src / compiler / entry.lisp

diff --git a/src/compiler/entry.lisp b/src/compiler/entry.lisp
index 8df8b32..e0c9b8d 100644 (file)
--- a/src/compiler/entry.lisp
+++ b/src/compiler/entry.lisp
@@ -13,9 +13,6 @@
 
 (in-package "SB!C")
 
-(file-comment
-  "$Header$")
-
 ;;; This phase runs before IR2 conversion, initializing each XEP's
 ;;; Entry-Info structure. We call the VM-supplied
 ;;; Select-Component-Format function to make VM-dependent
@@ -43,7 +40,7 @@
 (defun make-arg-names (x)
   (declare (type functional x))
   (let ((args (functional-arg-documentation x)))
-    (assert (not (eq args :unspecified)))
+    (aver (not (eq args :unspecified)))
     (if (null args)
        "()"
        (let ((*print-pretty* t)