anchor.diff:              (error 'end-of-file :stream stream)
               eof-value)
           b)))
  +
  +(defun write-byte (byte stream)
  +  (stream-write-byte byte (follow-synonym-stream stream)))
   
   (defun read-sequence (sequence stream &key (start 0) end)
     (stream-read-sequence sequence (follow-synonym-stream stream)
  
positive.code: (defgeneric stream-clear-between (stream start-x start-y end-x end-y))
  (defgeneric stream-move-to (stream x y))
  (defgeneric stream-read-byte (stream))
  (defgeneric stream-read-sequence (sequence stream start end))
  (defgeneric stream-file-position (stream))
  (defgeneric stream-set-file-position (new-stream position))
  (defgeneric stream-element-type* (stream))
  
negative.code: 		       (incf (slot-value stream 'edit-offset)))
  		     (return (write-char ch stream)))
  		    ((eql #\Backspace ch)
                       (when (slot-value stream 'edit-handler)
                         (funcall (slot-value stream 'edit-handler) ch))))))))))
  
  (defmethod stream-read-char :around ((stream edit-stream))
    (edit-stream-read stream #'call-next-method))
  