From 2d842915534d3d5dec90fca982c4f4a021aa55b7 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 11 Mar 1992 21:20:35 +0000
Subject: [PATCH] Added support for :fdefinition constant entries, and dump
 fop-fsets for setf functions in addition to regular functions.

---
 compiler/dump.lisp | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/compiler/dump.lisp b/compiler/dump.lisp
index d68223d29..45efe857f 100644
--- a/compiler/dump.lisp
+++ b/compiler/dump.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.36 1991/12/21 23:07:24 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.37 1992/03/11 21:20:35 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.36 1991/12/21 23:07:24 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.37 1992/03/11 21:20:35 wlott Exp $
 ;;;
 ;;;    This file contains stuff that knows about dumping FASL files.
 ;;;
@@ -461,7 +461,13 @@
 		    (patches (cons info i))
 		    (dump-fop 'lisp::fop-misc-trap file)))))
 	       (:load-time-value
-		(dump-push (cdr entry) file))))
+		(dump-push (cdr entry) file))
+	       (:fdefinition
+		(dump-fop 'lisp::fop-normal-load file)
+		(let ((*cold-load-dump* t))
+		  (dump-object (cdr entry) file))
+		(dump-fop 'lisp::fop-maybe-cold-load file)
+		(dump-fop 'lisp::fop-fdefinition file))))
 	    (null
 	     (dump-fop 'lisp::fop-misc-trap file)))))
 
@@ -572,8 +578,11 @@
     (dump-fop 'lisp::fop-function-entry file)
     (dump-unsigned-32 (label-position (entry-info-offset entry)) file)
     (let ((handle (dump-pop file)))
-      (when (and name (symbolp name))
-	(dump-object name file)
+      (when (and name (or (symbolp name) (listp name)))
+	(dump-fop 'lisp::fop-normal-load file)
+	(let ((*cold-load-dump* t))
+	  (dump-object name file))
+	(dump-fop 'lisp::fop-maybe-cold-load file)
 	(dump-push handle file)
 	(dump-fop 'lisp::fop-fset file))
       handle)))
-- 
GitLab