(setf (svref *!load-time-values* (third toplevel-thing))
(funcall (second toplevel-thing))))
(:load-time-value-fixup
- (setf (sap-ref-word (second toplevel-thing) 0)
+ (setf (sap-ref-word (int-sap (get-lisp-obj-address (second toplevel-thing)))
+ (third toplevel-thing))
(get-lisp-obj-address
- (svref *!load-time-values* (third toplevel-thing)))))
- #!+(and (or x86 x86-64) gencgc)
- (:load-time-code-fixup
- (sb!vm::!envector-load-time-code-fixup (second toplevel-thing)
- (third toplevel-thing)
- (fourth toplevel-thing)
- (fifth toplevel-thing)))
+ (svref *!load-time-values* (fourth toplevel-thing)))))
(t
(!cold-lose "bogus fixup code in *!REVERSED-COLD-TOPLEVELS*"))))
(t (!cold-lose "bogus function in *!REVERSED-COLD-TOPLEVELS*")))))