From 7c15ceec6bb9a59887b326aed006aada638c1bac Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 27 Apr 1990 19:23:57 +0000 Subject: [PATCH] Don't pass collect a constant initial value, 'cause it destructivly modifies it. Cons it up on the fly. --- compiler/mips/static-fn.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/mips/static-fn.lisp b/compiler/mips/static-fn.lisp index 3841b8cbb..e2911ade1 100644 --- a/compiler/mips/static-fn.lisp +++ b/compiler/mips/static-fn.lisp @@ -7,7 +7,7 @@ ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/static-fn.lisp,v 1.6 1990/04/24 02:56:34 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/static-fn.lisp,v 1.7 1990/04/27 19:23:57 wlott Exp $ ;;; ;;; This file contains the VOPs and macro magic necessary to call static ;;; functions. @@ -118,7 +118,7 @@ (expand - (collect ((templates '(progn))) + (collect ((templates (list 'progn))) (dotimes (i register-arg-count) (templates (static-function-template-vop i 1))) (templates))) -- GitLab