anchor.diff:      (with-gc-trace (object #\s)
         (scan-object object))))
   
  -;;; TODO: This needs to coalesce adjacent free areas.
   (defun sweep-static-space (space)
     (mumble "Sweeping static space")
     (let ((offset 0)
  
positive.code:            (gc-trace ,object-sym #\< ,prefix))
           ,result-sym))))
  
  #+nil(defmacro with-gc-trace ((object prefix) &body body)
    (declare (ignore object prefix))
    `(progn ,@body))
  
  
negative.code:      t)
      (t nil)))
  
  #+nil(defmacro with-gc-trace ((object prefix) &body body)
    (let ((object-sym (gensym))
          (result-sym (gensym)))
      `(let ((,object-sym ,object))
  