From 7f53b6424a57ceda4421b3fc8e58a7d9b29b3f33 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 12 May 1993 21:03:03 +0000 Subject: [PATCH] Fixed byte-apply to compute the arglist in forward order when nargs >=8. --- code/byte-interp.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/code/byte-interp.lisp b/code/byte-interp.lisp index a9ddc1e2a..85b981a4a 100644 --- a/code/byte-interp.lisp +++ b/code/byte-interp.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.13 1993/05/12 16:15:46 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.14 1993/05/12 21:03:03 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1057,9 +1057,9 @@ (let ((args ()) (end (+ start num-args))) (declare (type stack-pointer end)) - (do ((i start (1+ i))) - ((= i end)) - (declare (type stack-pointer i)) + (do ((i (1- end) (1- i))) + ((< i start)) + (declare (fixnum i)) (push (eval-stack-ref i) args)) (setf (current-stack-pointer) restore-sp) (apply function args))))) -- GitLab