From f57e7cfa2165d63bab0ca33d4430d13be16168b4 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sun, 15 Feb 1998 15:34:50 +0000 Subject: [PATCH] Make a fresh binding of *load-time-code-fixups* on each call to genesis; the fixups had been accumulating from multiple builds break the resulting core. --- compiler/generic/new-genesis.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp index dd72e541d..8033b9f44 100644 --- a/compiler/generic/new-genesis.lisp +++ b/compiler/generic/new-genesis.lisp @@ -4,7 +4,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.31 1998/01/17 05:52:13 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.32 1998/02/15 15:34:50 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2140,7 +2140,7 @@ (setq *current-init-functions-cons* *nil-descriptor*) (let ((*load-time-value-counter* 0) *static* *dynamic* *read-only* *cold-assembler-routines* - *cold-assembler-fixups*) + *cold-assembler-fixups* *load-time-code-fixups*) (unwind-protect (progn (clrhash *fdefn-objects*) -- GitLab