0.6.11.23:

[sbcl.git] / src / code / byte-interp.lisp

diff --git a/src/code/byte-interp.lisp b/src/code/byte-interp.lisp
index 53afca7..aaafdfa 100644 (file)
--- a/src/code/byte-interp.lisp
+++ b/src/code/byte-interp.lisp
@@ -1198,7 +1198,7 @@
                          (type stack-pointer more-args-start))
                 (cond
                  ((not (hairy-byte-function-keywords-p xep))
-                  (assert restp)
+                  (aver restp)
                   (setf (current-stack-pointer) (1+ more-args-start))
                   (setf (eval-stack-ref more-args-start) rest))
                  (t