Skip to content
Snippets Groups Projects
Commit 41ec2435 authored by wlott's avatar wlott
Browse files

Added define-primitive-object for structures.

,.
parent 7274f62e
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment