diff --git a/compiler/locall.lisp b/compiler/locall.lisp index aed0087999e9440847bff8d4146d954bc0cd678c..745228d6b480b899d7902b67ba70e6d2fe81987b 100644 --- a/compiler/locall.lisp +++ b/compiler/locall.lisp @@ -110,8 +110,7 @@ (temps (gensym))) `(lambda (,n-supplied ,@(temps)) (declare (fixnum ,n-supplied)) - ,(if (policy (lambda-bind fun) - (or (> speed safety) (> space safety))) + ,(if (policy (lambda-bind fun) (zerop safety)) `(declare (ignore ,n-supplied)) `(%verify-argument-count ,n-supplied ,nargs)) (%funcall ,fun ,@(temps))))))