anchor.diff:      (%bitblt 16 (array-dimension glyph 1) glyph 0 0
                framebuffer y x)))
   
  -(defclass framebuffer-stream (edit-stream ps/2-keyboard-stream stream-object)
  +(defclass framebuffer-output-stream (stream-object)
     ((framebuffer :initarg :framebuffer :accessor fbstream-framebuffer)
      (x :initarg :x :accessor fbstream-x)
      (y :initarg :y :accessor fbstream-y))
     (:default-initargs :x 0 :y 0))
  +
  +(defclass framebuffer-stream (framebuffer-output-stream edit-stream ps/2-keyboard-stream stream-object)
  +  ())
   
   (defun framebuffer-write-char (character stream)
     (let ((fb (fbstream-framebuffer stream))
  
positive.code:            (%bitset 16 end-x #xFF000000
                      framebuffer end-y 0)))))
  
  (defmethod stream-element-type* ((stream framebuffer-stream))
    'character)
  
negative.code:       (unless (eql ch #\Newline)
          (incf initial-x width)))))
  
  (defmethod stream-compute-motion ((stream framebuffer-output-stream) string &optional (start 0) end initial-x initial-y)
    (framebuffer-compute-motion stream string start end initial-x initial-y))
  
  (defmethod stream-clear-between ((stream framebuffer-output-stream) start-x start-y end-x end-y)
    (let ((framebuffer (fbstream-framebuffer stream)))
      (cond ((eql start-y end-y)
             ;; Clearing one line.
  