anchor.diff:  (in-package :lem)
   
  -(export '(buffer-output-stream
  +(export '(buffer-input-stream
  +          make-buffer-input-stream
  +          buffer-output-stream
             make-buffer-output-stream
             buffer-output-stream-point
             minibuffer-input-stream
  
positive.code:           editor-io-stream
            make-editor-io-stream))
  
  (defclass buffer-output-stream (trivial-gray-streams:fundamental-output-stream)
    ((marker
      :initarg :marker
      :accessor buffer-output-stream-marker)
     (interactive-update-p
      :initarg :interactive-update-p
      :accessor buffer-output-stream-interactive-update-p)))
  
  
negative.code:   (%write-string-to-buffer-stream stream string start end))
  
  (defmethod trivial-gray-streams:stream-terpri ((stream buffer-output-stream))
    (prog1 (insert-char/marker (buffer-stream-marker stream)
                               #\newline)
      (buffer-output-stream-refresh stream)))
  
  