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