anchor.diff:  (defclass mandelbrot ()
     ((%frame :initarg :frame :accessor frame)
      (%window :initarg :window :accessor window)
  -   (%fifo :initarg :fifo :accessor fifo)))
  +   (%fifo :initarg :fifo :accessor fifo)
  +   (%juliap :initarg :juliap :accessor juliap)))
   
   (defgeneric dispatch-event (app event)
     (:method (f e)))
  
positive.code:     (declare (type single-float scale x^ y^ r g b))
      (flet ((frag (x y)
               (declare (type single-float x y))
               (let ((hue (m (- (* scale x) 0.5f0)
                             (* scale y)
                             25)))
                 (when hue
                   (multiple-value-bind (r* g* b*)
                       (hue-to-rgb (+ hue-offset (the single-float hue)))
  
negative.code:                  (app (make-instance 'mandelbrot
                                       :fifo fifo
                                       :window window
                                       :frame frame
                                       :juliap nil)))
              (mezzano.gui.widgets:draw-frame (frame app))
              (mezzano.gui.compositor:damage-window window
                                                    0 0
  