X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fentry.lisp;h=e0c9b8d1291e3fa6a4a7e4320b6db4419da788dc;hb=3bd7a97d1b11a2b0aee086ef211cae807f3dfc35;hp=8df8b327005203086f8782ba154a22ab1e09063d;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/entry.lisp b/src/compiler/entry.lisp
index 8df8b32..e0c9b8d 100644
--- 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)