diff --git a/compiler/locall.lisp b/compiler/locall.lisp index 56b2f5ed392c353abe997733d34408413d16c217..e49b4e5e1c787c234f7ef482ffc14058c3ad6fe8 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