anchor.diff:             (incf x width)
              (setf (fbstream-x stream) x))))))
   
  -(defmethod stream-write-char (character (stream framebuffer-stream))
  +(defmethod stream-write-char (character (stream framebuffer-output-stream))
     (framebuffer-write-char character stream))
   
  -(defmethod stream-start-line-p ((stream framebuffer-stream))
  +(defmethod stream-start-line-p ((stream framebuffer-output-stream))
     (zerop (fbstream-x stream)))
   
  -(defmethod stream-cursor-pos ((stream framebuffer-stream))
  +(defmethod stream-cursor-pos ((stream framebuffer-output-stream))
     (values (fbstream-x stream) (fbstream-y stream)))
   
  -(defmethod stream-move-to ((stream framebuffer-stream) x y)
  +(defmethod stream-move-to ((stream framebuffer-output-stream) x y)
     #+nil(check-type x integer)
     #+nil(check-type y integer)
     (setf (fbstream-x stream) x
           (fbstream-y stream) y))
   
  -(defmethod stream-character-width ((stream framebuffer-stream) character)
  +(defmethod stream-character-width ((stream framebuffer-output-stream) character)
     (if (eql character #\Space)
         8
         (unifont-glyph-width character)))
  
positive.code:     (%bitblt 16 (array-dimension glyph 1) glyph 0 0
               framebuffer y x)))
  
  (defclass framebuffer-stream (edit-stream ps/2-keyboard-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))
  
  (defun framebuffer-write-char (character stream)
    (let ((fb (fbstream-framebuffer stream))
  
negative.code:            (%bitset 16 end-x #xFF000000
                      framebuffer end-y 0)))))
  
  (defmethod stream-element-type* ((stream framebuffer-output-stream))
    'character)
  