0.6.11.23:

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

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