;; GC :FULL T isn't nearly as effective as PURIFY here?
;; (GC :FULL T gets us down to about 38 Mbytes, but PURIFY
;; gets us down to about 19 Mbytes.)
- (let ((*gc-notify-stream* *standard-output*))
- (sb-int:/show "done with warm.lisp, about to GC :FULL T")
- (gc :full t))
+ (sb-int:/show "done with warm.lisp, about to GC :FULL T")
+ (sb-c::pack-before-gc-hook) ; KLUDGE
+ (gc :full t)
;; resetting compilation policy to neutral values in
;; preparation for SAVE-LISP-AND-DIE as final SBCL core (not