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