anchor.diff:  		     :expand         t          ; expand oldspace if necessary, as follows:
   		     :old            #x2000000  ; last, make oldspace at least this large (~ 20 MByte)
   		     )
  +  (when verbose?
  +    (format t "~&;;; (room) after resize-areas:~%")
  +    (room))
     ;; 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)
  +  (setf (sys::gsgc-parameter :open-old-area-fence) -1)
     (gc t)
     (when verbose?
       (sys::gsgc-parameters)
  +    (format t "~&;;; (room t) after setting fence to -1:~%")
       (room t)))
  
positive.code:   ;;
    (when verbose?
      (sys::gsgc-parameters)
      (room t)))
  
  (defun set-gc-parameters-for-use (&optional verbose?)
    (format t "~3%;;; Set GC parameters to good values for normal use (e.g. processing specs).~2%")
    ;;
    ;; Restore parameters to default values.  (Still might want to fine tune these more.)
    ;;
  
negative.code: 
  (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?)
    ;;
  