- (this :c-type "struct thread *")
- (next :c-type "struct thread *")
- (pseudo-atomic-atomic)
- (pseudo-atomic-interrupted)
- (interrupt-data :c-type "struct interrupt_data *")
+ (this :c-type "struct thread *" :length #!+alpha 2 #!-alpha 1)
+ (next :c-type "struct thread *" :length #!+alpha 2 #!-alpha 1)
+ (state) ; running, stopping, stopped, dead
+ #!+(or x86 x86-64) (pseudo-atomic-atomic)
+ #!+(or x86 x86-64) (pseudo-atomic-interrupted)
+ (interrupt-data :c-type "struct interrupt_data *"
+ :length #!+alpha 2 #!-alpha 1)