anchor.diff:        (int::area-usage :wired-function)
       (/ (float used) commit)))
   
  +(defun make-graph-samplers ()
  +  (list (make-instance 'graph-sampler
  +                       :function 'general-area-usage
  +                       :colour theme:*memory-monitor-general-area-usage*
  +                       :name "General area usage")
  +        (make-instance 'graph-sampler
  +                       :function 'general-area-alloc
  +                       :colour theme:*memory-monitor-general-area-alloc*
  +                       :name "General area bytes allocated"
  +                       :scale t)
  +        (make-instance 'graph-sampler
  +                       :function 'general-area-commit
  +                       :colour theme:*memory-monitor-general-area-commit*
  +                       :name "General area bytes committed"
  +                       :scale t)
  +        (make-instance 'graph-sampler
  +                       :function 'cons-area-usage
  +                       :colour theme:*memory-monitor-cons-area-usage*
  +                       :name "Cons area usage")
  +        (make-instance 'graph-sampler
  +                       :function 'cons-area-alloc
  +                       :colour theme:*memory-monitor-cons-area-alloc*
  +                       :name "Cons area bytes allocated"
  +                       :scale t)
  +        (make-instance 'graph-sampler
  +                       :function 'cons-area-commit
  +                       :colour theme:*memory-monitor-cons-area-commit*
  +                       :name "Cons area bytes committed"
  +                       :scale t)
  +        (make-instance 'graph-sampler
  +                       :function 'pinned-area-usage
  +                       :colour theme:*memory-monitor-pinned-area-usage*
  +                       :name "Pinned area usage")
  +        (make-instance 'graph-sampler
  +                       :function 'wired-area-usage
  +                       :colour theme:*memory-monitor-wired-area-usage*
  +                       :name "Wired area usage")
  +        (make-instance 'graph-sampler
  +                       :function 'function-area-usage
  +                       :colour theme:*memory-monitor-function-area-usage*
  +                       :name "Function area usage")
  +        (make-instance 'graph-sampler
  +                       :function 'wired-function-area-usage
  +                       :colour theme:*memory-monitor-wired-function-area-usage*
  +                       :name "Wired function area usage")))
  +
   (defun main (open-width open-height)
     (with-simple-restart (abort "Close memory monitor")
       (catch 'quit
  
positive.code:            (t                   #x200)))
          (t 0)))
  
  (defun update-display (fb x y w h)
    (let* ((n-pixels (* w h))
           (flag-array (make-array n-pixels :initial-element 0)))
      ;; Get page flags for each pixel.
      (mezzano.supervisor:with-pseudo-atomic ()
  
negative.code:                     fb left top)
          (mezzano.gui.compositor:damage-window
           (window app) left top (- width left right) (- height top bottom))
          (incf top (draw-tab-bar app))
          (dolist (sampler (samplers app))
            (when (and (sampler-history sampler)
                       (eql (length (sampler-history sampler)) (- width left right)))
  