From b275d0f05c7f6a2817f00d8d266aa9498bf798b9 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 13 Nov 1990 22:53:30 +0000 Subject: [PATCH] Export lots of symbols and don't bother to qualify defknown attributes, 'cause they are now exported. --- compiler/generic/objdef.lisp | 80 ++++++++++++++++++++++-------------- 1 file changed, 50 insertions(+), 30 deletions(-) diff --git a/compiler/generic/objdef.lisp b/compiler/generic/objdef.lisp index a169d794d..37ff68bcc 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.1 1990/11/03 03:15:57 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.2 1990/11/13 22:53:30 wlott Exp $ ;;; ;;; This file contains the machine independent aspects of the object ;;; representation. @@ -17,12 +17,32 @@ (in-package "VM") (export '(lowtag-bits lowtag-mask lowtag-limit type-bits type-mask - primitive-object primitive-object-p primitive-object-name - primitive-object-header primitive-object-lowtag - primitive-object-options primitive-object-slots - primitive-object-size primitive-object-variable-length - slot-name slot-docs slot-rest-p slot-offset slot-length - slot-options define-for-each-primitive-object)) + target-most-positive-fixnum target-most-negative-fixnum + even-fixnum-type function-pointer-type other-immediate-0-type + list-pointer-type odd-fixnum-type structure-pointer-type + other-immediate-1-type other-pointer-type bignum-type ratio-type + single-float-type double-float-type complex-type + simple-array-type simple-string-type simple-bit-vector-type + simple-vector-type simple-array-unsigned-byte-2-type + simple-array-unsigned-byte-4-type + simple-array-unsigned-byte-8-type + simple-array-unsigned-byte-16-type + simple-array-unsigned-byte-32-type simple-array-single-float-type + simple-array-double-float-type complex-string-type + complex-bit-vector-type complex-vector-type complex-array-type + code-header-type function-header-type closure-header-type + closure-function-header-type return-pc-header-type + value-cell-header-type symbol-header-type base-character-type + sap-type unbound-marker-type weak-pointer-type + structure-header-type vector-normal-subtype + vector-valid-hashing-subtype vector-must-rehash-subtype + primitive-object primitive-object-p + primitive-object-name primitive-object-header + primitive-object-lowtag primitive-object-options + primitive-object-slots primitive-object-size + primitive-object-variable-length slot-name slot-docs slot-rest-p + slot-offset slot-length slot-options + define-for-each-primitive-object)) @@ -238,7 +258,7 @@ :setf-vop c::set-car :set-trans c::%rplaca :init :arg) (cdr :ref-vop cdr :ref-trans cdr - :setf-vop c::set-cdr :set-trans c::%rplacd + :setf-vop set-cdr :set-trans c::%rplacd :init :arg)) (define-primitive-object (bignum :lowtag other-pointer-type @@ -273,40 +293,40 @@ :header t) (fill-pointer :type index :ref-trans %array-fill-pointer - :ref-known (c::flushable c::foldable) + :ref-known (flushable foldable) :set-trans (setf %array-fill-pointer) - :set-known (c::unsafe)) + :set-known (unsafe)) (fill-pointer-p :type (member t nil) :ref-trans %array-fill-pointer-p - :ref-known (c::flushable c::foldable) + :ref-known (flushable foldable) :set-trans (setf %array-fill-pointer-p) - :set-known (c::unsafe)) + :set-known (unsafe)) (elements :type index :ref-trans %array-available-elements - :ref-known (c::flushable c::foldable) + :ref-known (flushable foldable) :set-trans (setf %array-available-elements) - :set-known (c::unsafe)) + :set-known (unsafe)) (data :type array :ref-trans %array-data-vector - :ref-known (c::flushable c::foldable) + :ref-known (flushable foldable) :set-trans (setf %array-data-vector) - :set-known (c::unsafe)) + :set-known (unsafe)) (displacement :type (or index null) :ref-trans %array-displacement - :ref-known (c::flushable c::foldable) + :ref-known (flushable foldable) :set-trans (setf %array-displacement) - :set-known (c::unsafe)) + :set-known (unsafe)) (displaced-p :type (member t nil) :ref-trans %array-displaced-p - :ref-known (c::flushable c::foldable) + :ref-known (flushable foldable) :set-trans (setf %array-displaced-p) - :set-known (c::unsafe)) + :set-known (unsafe)) (dimensions :rest-p t)) (define-primitive-object (vector :lowtag other-pointer-type :header t) (length :ref-trans c::vector-length :type index - :ref-known (c::flushable c::foldable)) + :ref-known (flushable foldable)) (data :rest-p t :c-type "unsigned long")) (define-primitive-object (code :lowtag other-pointer-type :header t) @@ -315,7 +335,7 @@ :set-vop c::set-code-entry-points) (debug-info :type t :ref-trans di::code-debug-info - :ref-known (c::flushable) + :ref-known (flushable) :set-vop c::set-code-debug-info) (constants :rest-p t)) @@ -324,15 +344,15 @@ (self :ref-vop c::function-self :set-vop c::set-function-self) (next :ref-vop c::function-next :set-vop c::set-function-next) (name :ref-vop c::function-name - :ref-known (c::flushable) + :ref-known (flushable) :ref-trans %function-header-name :set-vop c::set-function-name) (arglist :ref-vop c::function-arglist - :ref-known (c::flushable) + :ref-known (flushable) :ref-trans lisp::%function-header-arglist :set-vop c::set-function-arglist) (type :ref-vop c::function-type - :ref-known (c::flushable) + :ref-known (flushable) :ref-trans lisp::%function-header-type :set-vop c::set-function-type) (code :rest-p t :c-type "unsigned char")) @@ -345,7 +365,7 @@ :alloc-vop c::make-closure) (function :init :arg :ref-vop c::closure-function - :ref-known (c::flushable) + :ref-known (flushable) :ref-trans %closure-function) (info :rest-p t :set-vop c::closure-init :ref-vop c::closure-ref)) @@ -379,14 +399,14 @@ :header weak-pointer-type :alloc-trans c::%make-weak-pointer) (value :ref-trans c::%weak-pointer-value - :ref-known (c::flushable) + :ref-known (flushable) :set-trans (setf c::%weak-pointer-value) - :set-known (c::unsafe) + :set-known (unsafe) :init :arg) (broken :ref-trans c::%weak-pointer-broken - :ref-known (c::flushable) + :ref-known (flushable) :set-trans (setf c::%weak-pointer-broken) - :set-known (c::unsafe) + :set-known (unsafe) :init :arg) (next :c-type "struct weak_pointer *")) -- GitLab