(inst shl boxed (- type-bits word-shift))
(inst or boxed code-header-type)
(storew boxed result 0 other-pointer-type)
(storew unboxed result code-code-size-slot other-pointer-type)
(inst shl boxed (- type-bits word-shift))
(inst or boxed code-header-type)
(storew boxed result 0 other-pointer-type)
(storew unboxed result code-code-size-slot other-pointer-type)
(storew temp result code-entry-points-slot other-pointer-type))
(storew temp result code-debug-info-slot other-pointer-type)))
(storew temp result code-entry-points-slot other-pointer-type))
(storew temp result code-debug-info-slot other-pointer-type)))
(inst or boxed code-header-type)
(storew boxed result 0 other-pointer-type)
(storew unboxed result code-code-size-slot other-pointer-type)
(inst or boxed code-header-type)
(storew boxed result 0 other-pointer-type)
(storew unboxed result code-code-size-slot other-pointer-type)
- (storew *nil-value* result code-entry-points-slot other-pointer-type))
- (storew *nil-value* result code-debug-info-slot other-pointer-type)))
+ (storew nil-value result code-entry-points-slot other-pointer-type))
+ (storew nil-value result code-debug-info-slot other-pointer-type)))
(:generator 37
(with-fixed-allocation (result fdefn-type fdefn-size node)
(storew name result fdefn-name-slot other-pointer-type)
(:generator 37
(with-fixed-allocation (result fdefn-type fdefn-size node)
(storew name result fdefn-name-slot other-pointer-type)
(storew (make-fixup (extern-alien-name "undefined_tramp") :foreign)
result fdefn-raw-addr-slot other-pointer-type))))
(storew (make-fixup (extern-alien-name "undefined_tramp") :foreign)
result fdefn-raw-addr-slot other-pointer-type))))
- (storew *nil-value* result symbol-plist-slot other-pointer-type)
- (storew *nil-value* result symbol-package-slot other-pointer-type))))
+ (storew nil-value result symbol-plist-slot other-pointer-type)
+ (storew nil-value result symbol-package-slot other-pointer-type))))