- :locations #.descriptor-regs
- :constant-scs (constant null immediate)
- :save-p t
- :alternate-scs (control-stack))
+ :locations #.descriptor-regs
+ :constant-scs (constant null immediate)
+ :save-p t
+ :alternate-scs (control-stack))
+
+ ;; The non-descriptor stacks.
+ (signed-stack non-descriptor-stack
+ :element-size 2 :alignment 2) ; (signed-byte 64)
+ (unsigned-stack non-descriptor-stack
+ :element-size 2 :alignment 2) ; (unsigned-byte 64)
+ (character-stack non-descriptor-stack) ; non-descriptor characters.
+ (sap-stack non-descriptor-stack
+ :element-size 2 :alignment 2) ; System area pointers.
+ (single-stack non-descriptor-stack) ; single-floats
+ (double-stack non-descriptor-stack
+ :element-size 2 :alignment 2) ; double floats.
+ (complex-single-stack non-descriptor-stack :element-size 2)
+ (complex-double-stack non-descriptor-stack :element-size 4 :alignment 2)
+
+
+ ;; **** Things that can go in the integer registers.