From 41ec2435e6f1273441f6d634d5bb99a7529edf4b Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 18 Dec 1990 20:43:03 +0000
Subject: [PATCH] Added define-primitive-object for structures. ,.

---
 compiler/generic/objdef.lisp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/compiler/generic/objdef.lisp b/compiler/generic/objdef.lisp
index c34420cae..5751484dc 100644
--- a/compiler/generic/objdef.lisp
+++ b/compiler/generic/objdef.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.8 1990/12/11 21:39:59 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.9 1990/12/18 20:43:03 wlott Exp $
 ;;;
 ;;; This file contains the machine independent aspects of the object
 ;;; representation.
@@ -267,6 +267,11 @@
        :setf-vop set-cdr :set-trans c::%rplacd
        :init :arg))
 
+(define-primitive-object (structure :lowtag structure-pointer-type
+				    :header structure-header-type
+				    :alloc-trans make-structure)
+  (slots :rest-p t))
+
 (define-primitive-object (bignum :lowtag other-pointer-type
 				 :header bignum-type
 				 :alloc-trans bignum::%allocate-bignum)
-- 
GitLab