From 89bdca7ade8fafdf5c4a79117e4f2a4912d43d08 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 8 Feb 1993 22:16:57 +0000
Subject: [PATCH] Compilation error cruft..

---
 compiler/generic/new-genesis.lisp | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp
index b6b285914..d0344f8ba 100644
--- a/compiler/generic/new-genesis.lisp
+++ b/compiler/generic/new-genesis.lisp
@@ -6,7 +6,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.3.1.1 1993/01/24 19:22:12 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.3.1.2 1993/02/08 22:16:57 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -459,6 +459,9 @@
     (write-indexed dest 1 cdr)
     dest))
 
+(defmacro cold-push (thing list)
+  "Generates code to push the THING onto the given cold load LIST."
+  `(setq ,list (allocate-cons *dynamic* ,thing ,list)))
 
 ;;; COLD-VECTOR  --  Internal
 ;;;
@@ -861,7 +864,7 @@
   (clrhash *cold-layouts*)
   (setq *layout-layout* *nil-descriptor*)
   (setq *layout-layout*
-	(make-cold-layout 'layout *nil-handle*
+	(make-cold-layout 'layout *nil-descriptor*
 			  (number-to-core target-layout-length)
 			  (number-to-core 3)))
   (write-indexed *layout-layout* vm:instance-slots-offset *layout-layout*)
@@ -882,12 +885,13 @@
 
 ;;; LIST-ALL-LAYOUTS  --  Internal
 ;;;
-;;;    Return a cold alist that we're going to store in INITIAL-LAYOUTS.
+;;;    Return a cold alist that we're going to store in *INITIAL-LAYOUTS*.
 ;;;
 (defun list-all-layouts ()
   (let ((result *nil-descriptor*))
     (maphash #'(lambda (key value)
-		 (cold-push (cold-cons (cold-intern key) value) result))
+		 (cold-push (allocate-cons *dynamic* (cold-intern key) value)
+			    result))
 	     *cold-layouts*)
     result))
 
-- 
GitLab