From 26fbd77ba68fefa8dab42d0122dee2165f6ca024 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 17 Jan 1993 20:38:06 +0000
Subject: [PATCH] Chagned make-xep-lambda to declare the number of supplied
 arguments as an index instead of a fixnum, because it cannot be negative.

---
 compiler/locall.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/locall.lisp b/compiler/locall.lisp
index 56b2f5ed3..e49b4e5e1 100644
--- a/compiler/locall.lisp
+++ b/compiler/locall.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.39 1992/11/03 07:06:03 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.40 1993/01/17 20:38:06 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -150,7 +150,7 @@
 	 (dotimes (i nargs)
 	   (temps (gensym)))
 	 `(lambda (,n-supplied ,@(temps))
-	    (declare (fixnum ,n-supplied))
+	    (declare (type index ,n-supplied))
 	    ,(if (policy nil (zerop safety))
 		 `(declare (ignore ,n-supplied))
 		 `(%verify-argument-count ,n-supplied ,nargs))
@@ -172,7 +172,7 @@
 		      (%funcall ,(first eps) ,@(subseq (temps) 0 n)))))
 
 	 `(lambda (,n-supplied ,@(temps))
-	    (declare (fixnum ,n-supplied))
+	    (declare (type index ,n-supplied))
 	    (cond
 	     ,@(if more (butlast (entries)) (entries))
 	     ,@(when more
-- 
GitLab