X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fentry.lisp;h=e0c9b8d1291e3fa6a4a7e4320b6db4419da788dc;hb=872175cd9cb5b4966a36d4bd92421cc407a0355b;hp=fdbd985129041ce5155f56c6410a2f2a6e0803af;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/compiler/entry.lisp b/src/compiler/entry.lisp
index fdbd985..e0c9b8d 100644
--- a/src/compiler/entry.lisp
+++ b/src/compiler/entry.lisp
@@ -40,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)