From e431b901b5b1b04f1b6662fd8d2a853467bcc397 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 13 May 1993 17:56:06 +0000
Subject: [PATCH] Changed to check code format at fop-code-format time, not at
 fop-code time. Made fop-make-byte-compiled-function a not-cold-fop (until I
 actually implement it.)

---
 compiler/generic/new-genesis.lisp | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp
index a721b2a69..c3ff910ce 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.5 1993/04/28 02:03:42 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.6 1993/05/13 17:56:06 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1325,11 +1325,9 @@
 (define-cold-fop (fop-sanctify-for-execution)
   (pop-stack))
 
-(defun cold-verify-code-format ()
-  (unless *current-code-format*
-    (error "Can't load code until after FOP-CODE-FORMAT."))
-  (let ((implementation (car *current-code-format*))
-	(version (cdr *current-code-format*)))
+(define-cold-vop (fop-code-format :nope)
+  (let ((implementation (read-arg 1))
+	(version (read-arg 1)))
     (unless (= implementation (c:backend-fasl-file-implementation c:*backend*))
       (error
        "~A was compiled for a ~A, but we are trying to build a core for a ~A"
@@ -1344,9 +1342,10 @@
        "~A was compiled for a fasl-file version ~A, but we need version ~A"
        *Fasl-file* version (c:backend-fasl-file-version c:*backend*)))))
 
+(not-cold-fop fop-make-byte-compiled-function)
+
 (defmacro define-cold-code-fop (name nconst size)
   `(define-cold-fop (,name)
-     (cold-verify-code-format)
      (let* ((nconst ,nconst)
 	    (size ,size)
 	    (header-size
-- 
GitLab