anchor.diff:  
   (defun set-gc-parameters-for-build (&optional verbose?)
     (format t "~3%;;; Set GC parameters to good values for building specware (e.g. loading fasl files).~2%")
  +  (when verbose?
  +    (format t "~&;;; (room) before setting parameters for build phase:~%")
  +    (room))
     ;;
     ;; make newspace grow slowly (maybe not the best strategy?)
     ;;
  
positive.code: 		     :expand         t          ; expand oldspace if necessary, as follows:
  		     :old            #x2000000  ; last, make oldspace at least this large (~ 20 MByte)
  		     )
    ;; close all but the latest oldspace areas, so their contents
    ;; won't be gc'd again and again...
    (setf (sys::gsgc-parameter :open-old-area-fence)        -1)
    (gc t)
    (when verbose?
      (sys::gsgc-parameters)
      (room t)))
  
negative.code:   (setf (sys::gsgc-parameter :generation-spread)          12) ; default is  4, range is 0-26 
    (when verbose?
      (sys::gsgc-parameters)
      (format t "~&;;; (room t) after setting parameters for normal use:~%")
      (room t)))
  
  (defun compact-memory (&optional verbose?)
    (format t "~3%;;; Restructure memory to compact old spaces, etc.~2%")
    (when verbose?
      (format t "~&;;; (room) before resize-areas:~%")
      (room))
    (gc)
    (gc t)
    (sys::resize-areas :verbose        verbose?
  