anchor.diff:    (setf right (clamp right 0 (terminal-width term)))
     (when (and (<= 0 (y-pos term) (1- (terminal-height term)))
                (< left right))
  -    (sys.int::%bitset 16 (* (- right left) 8)
  -                      #xFF000000 (terminal-framebuffer term)
  -                      (* (y-pos term) 16) (* left 8))))
  +    (sys.graphics::bitset 16 (* (- right left) 8)
  +                          #xFF000000 (terminal-framebuffer term)
  +                          (* (y-pos term) 16) (* left 8))))
   
   (defmethod sys.int::stream-write-byte (byte (stream xterm-terminal))
     (ecase (terminal-state stream)
  
positive.code:   (setf top (clamp top 0 (terminal-height term)))
    (setf bottom (clamp bottom 0 (terminal-height term)))
    (when (< top bottom)
      (sys.int::%bitset (* (- bottom top) 16) (* (terminal-width term) 8)
                        #xFF000000 (terminal-framebuffer term)
                        (* top 16) 0)))
  
  
negative.code:     (when (and (<= 0 x (1- (terminal-width term)))
                 (<= 0 y (1- (terminal-height term))))
        (if (eql char #\Space)
            (sys.graphics::bitset 16 8 #xFF000000 (terminal-framebuffer term) (* y 16) (* x 8))
            (sys.int::render-char-at char (terminal-framebuffer term) (* x 8) (* y 16))))
      (incf (x-pos term))))
  
  