From 788904f33f9ac71ec25fd4ecc43cb799a0718f83 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 17 Dec 1992 09:29:25 +0000
Subject: [PATCH] Changed function-header-mumble to function-mumble.

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

diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp
index f3adb8933..2bcd73327 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.2 1992/10/10 10:06:52 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.3 1992/12/17 09:29:25 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -769,8 +769,7 @@
 			(#.vm:function-header-type
 			 (make-random-descriptor
 			  (+ (logandc2 (descriptor-bits defn) vm:lowtag-mask)
-			     (ash vm:function-header-code-offset
-				  vm:word-shift))))
+			     (ash vm:function-code-offset vm:word-shift))))
 			(#.vm:closure-header-type
 			 (make-random-descriptor
 			  (lookup-foreign-symbol "closure_tramp")))))
@@ -1311,19 +1310,19 @@
     (write-memory fn (make-other-immediate-descriptor (ash offset
 							   (- vm:word-shift))
 						      vm:function-header-type))
-    (write-indexed fn vm:function-header-self-slot
+    (write-indexed fn vm:function-self-slot
 		   (if (= (c:backend-fasl-file-implementation c:*backend*)
 			  #.c:x86-fasl-file-implementation)
 		       (make-random-descriptor
 			(+ (descriptor-bits fn)
-			   (- (ash vm:function-header-code-offset
+			   (- (ash vm:function-code-offset
 				   vm:word-shift)
 			      vm:function-pointer-type)))
 		       fn))
-    (write-indexed fn vm:function-header-next-slot next)
-    (write-indexed fn vm:function-header-name-slot name)
-    (write-indexed fn vm:function-header-arglist-slot arglist)
-    (write-indexed fn vm:function-header-type-slot type)
+    (write-indexed fn vm:function-next-slot next)
+    (write-indexed fn vm:function-name-slot name)
+    (write-indexed fn vm:function-arglist-slot arglist)
+    (write-indexed fn vm:function-type-slot type)
     fn))
 
 (define-cold-fop (fop-foreign-fixup)
-- 
GitLab