name (+ sb!vm:instance-slots-offset slot) lowtag))
,@(mapcar (lambda (rsd)
`(,(sb!kernel::raw-slot-data-raw-type rsd)
name (+ sb!vm:instance-slots-offset slot) lowtag))
,@(mapcar (lambda (rsd)
`(,(sb!kernel::raw-slot-data-raw-type rsd)
-(defoptimizer (cons stack-allocate-result) ((&rest args) node dx)
- (declare (ignore node dx))
- t)
+(progn
+ (defoptimizer (cons stack-allocate-result) ((&rest args) node dx)
+ t)
+ (defoptimizer (%make-complex stack-allocate-result) ((&rest args) node dx)
+ t))