From 0fbaa28cec00cfaa80d3bcdaea74f54071102512 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 12 May 1990 20:37:43 +0000 Subject: [PATCH] Changed check for flushing arg count error to be (zerop safety). --- compiler/locall.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/locall.lisp b/compiler/locall.lisp index aed008799..745228d6b 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)))))) -- GitLab