- (filler)
- (real :c-type "double" :length 2)
- (imag :c-type "double" :length 2))
-
-#!+long-float
-(define-primitive-object (complex-long-float
- :lowtag other-pointer-lowtag
- :widetag complex-long-float-widetag)
- #!+sparc (filler)
- (real :c-type "long double" :length #!+x86 3 #!+sparc 4)
- (imag :c-type "long double" :length #!+x86 3 #!+sparc 4))
+ #!-x86-64 (filler)
+ (real :c-type "double" :length #!-x86-64 2 #!+x86-64 1)
+ (imag :c-type "double" :length #!-x86-64 2 #!+x86-64 1))