(sys:resize-areas 
  :verbose t 
  :old (* 1024 1024 112)
  :new (* 1024 1024 384)
  :global-gc t :tenure t :expand t :sift-old-areas t :pack-heap t)