X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fx86%2Fcall.lisp;h=307e3f810b3984b7072e95792ce741413bce95bd;hb=b19093fa94d6e1785abee99c35c9a610e8777671;hp=04d0f6279c54bfbf4688a01ff84320fe79660f36;hpb=ce02ab2ecd9c6ae2e570abd8c93ebf3be55bbdad;p=sbcl.git

diff --git a/src/compiler/x86/call.lisp b/src/compiler/x86/call.lisp
index 04d0f62..307e3f8 100644
--- a/src/compiler/x86/call.lisp
+++ b/src/compiler/x86/call.lisp
@@ -748,7 +748,7 @@
 ;;; more arg, but there is no new-FP, since the arguments have been set up in
 ;;; the current frame.
 (macrolet ((define-full-call (name named return variable)
-	    (assert (not (and variable (eq return :tail))))
+	    (aver (not (and variable (eq return :tail))))
 	    `(define-vop (,name
 			  ,@(when (eq return :unknown)
 			      '(unknown-values-receiver)))