Menu
▾
▴
Re: [Sbcl-devel] How To have my own integer types?
|
From: Philipp M. <ph...@ma...> - 2024-08-02 15:26:29
|
> Joking aside, is lack of a new case in (DEFUN LAYOUT-OF) in
> src/code/class
> a potential problem?
> You didn't show any example of what LAYOUT-OF returns, and I didn't
> build
> your code to find out
(aref sb-c::**primitive-object-layouts** sb-int:udef-inttype-lowtag)
; #<SB-KERNEL:LAYOUT for SB-INT:UDEF-INTTYPE {509109A3}>
(describe
(aref sb-c::**primitive-object-layouts**
sb-int:udef-inttype-lowtag))
; #<SB-KERNEL:LAYOUT for SB-INT:UDEF-INTTYPE {509109A3}>
; [structure-object]
; Slots with :INSTANCE allocation:
; FLAGS = 8589934592
; CLOS-HASH = 3315979422303135133
; CLASSOID = #<SB-KERNEL:BUILT-IN-CLASSOID
SB-INT:UDEF-INTTYPE (sealed)>
; INVALID = NIL
; INHERITS = #(#<SB-KERNEL:LAYOUT for T
{50901003}>)
; %INFO = NIL
; EQUALP-IMPL = 0
; SLOT-MAPPER = 0
; SLOT-TABLE = #(1 NIL)
; ID-WORD0 = 0
; ID-WORD1 = 0
; ID-WORD2 = 0
(describe
(sb-c::layout-of (sb-int:make-udef-inttype 4)))
; #<SB-KERNEL:LAYOUT for SB-INT:UDEF-INTTYPE {509109A3}>
; [structure-object]
; Slots with :INSTANCE allocation:
; FLAGS = 8589934592
; CLOS-HASH = 3315979422303135133
; CLASSOID = #<SB-KERNEL:BUILT-IN-CLASSOID
SB-INT:UDEF-INTTYPE (sealed)>
; INVALID = NIL
; INHERITS = #(#<SB-KERNEL:LAYOUT for T
{50901003}>)
; %INFO = NIL
; EQUALP-IMPL = 0
; SLOT-MAPPER = 0
; SLOT-TABLE = #(1 NIL)
; ID-WORD0 = 0
; ID-WORD1 = 0
; ID-WORD2 = 0
; No value
|
