From d5115ca96e506aa6c70d74e12ab069cf11bf6dcf Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 15 Dec 1991 08:12:51 +0000 Subject: [PATCH] Added ``:make-load-form-fun :just-dump-it-normally'' to the primitive object and slot structures. --- compiler/generic/objdef.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/compiler/generic/objdef.lisp b/compiler/generic/objdef.lisp index 17d738da5..7860d573c 100644 --- a/compiler/generic/objdef.lisp +++ b/compiler/generic/objdef.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/generic/objdef.lisp,v 1.13 1991/11/24 23:59:43 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.14 1991/12/15 08:12:51 wlott Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.13 1991/11/24 23:59:43 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.14 1991/12/15 08:12:51 wlott Exp $ ;;; ;;; This file contains the machine independent aspects of the object ;;; representation. @@ -161,7 +161,8 @@ (defstruct (slot (:constructor %make-slot - (name docs rest-p length options))) + (name docs rest-p length options)) + (:make-load-form-fun :just-dump-it-normally)) (name nil :type symbol) (docs nil :type (or null simple-string)) (rest-p nil :type (member t nil)) @@ -179,7 +180,7 @@ (%make-slot name docs rest-p length options))) (defstruct (primitive-object - ) + (:make-load-form-fun :just-dump-it-normally)) (name nil :type symbol) (header nil :type symbol) (lowtag nil :type symbol) -- GitLab