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