(in-package "SB!VM")
-(file-comment
- "$Header$")
-
;;; FIXME: It's clever using :SUFFIX -TYPE for these things, but it's
;;; a pain for people just learning to find their way around the code
-;;; who want to figure out where things like EVEN-FIXNUM type are
-;;; defined. Remove the :SUFFIXes and just expand out the full names.
+;;; who want to use lexical search to figure out where things like
+;;; EVEN-FIXNUM-TYPE are defined. Remove the :SUFFIXes and just expand
+;;; out the full names. Or even define them in DEF-FROB EVEN-FIXNUM-TYPE
+;;; style so searches like 'def.*even-fixnum-type' can find them.
-;;; the main types. These types are represented by the low three bits of the
-;;; pointer or immeditate object.
-(defenum (:suffix -type)
- even-fixnum
- function-pointer
- other-immediate-0
- list-pointer
- odd-fixnum
- instance-pointer
- other-immediate-1
- other-pointer)
+;;; the main types. These types are represented by the low three bits
+;;; of the pointer or immediate object.
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ ;; The EVAL-WHEN is necessary (at least for Lispworks), because the
+ ;; second DEFENUM uses the value of OTHER-IMMEDIATE-0-TYPE, which is
+ ;; defined in the first DEFENUM. -- AL 20000216
+ (defenum (:suffix -type)
+ even-fixnum
+ ;; Note: CMU CL, and SBCL < 0.pre7.39, had FUN-POINTER-TYPE
+ ;; here. We swapped FUN-POINTER-TYPE and
+ ;; INSTANCE-POINTER-TYPE in sbcl-0.pre7.39 in order to help with a
+ ;; low-level pun in the function call sequence on the PPC port.
+ ;; For more information, see the PPC port code. -- WHN 2001-10-03
+ instance-pointer
+ other-immediate-0
+ list-pointer
+ odd-fixnum
+ fun-pointer
+ other-immediate-1
+ other-pointer))
;;; the heap types. Each of these types is in the header of objects in
;;; the heap.
complex-array
code-header
- function-header
+ simple-fun-header
closure-header
funcallable-instance-header
- byte-code-function
- byte-code-closure
- closure-function-header
- #!-gengc return-pc-header
- #!+gengc forwarding-pointer
+ closure-fun-header
+
+ return-pc-header
value-cell-header
symbol-header
base-char
unbound-marker
weak-pointer
instance-header
- fdefn
- )
+ fdefn)
;;; the different vector subtypes
(defenum (:prefix vector- :suffix -subtype)