anchor.diff:  (defmethod trivial-gray-streams:stream-write-sequence
       ((stream buffer-output-stream)
        sequence start end &key)
  -  (print (type-of sequence))
     (etypecase sequence
       (string
        (%write-string-to-buffer-stream stream sequence start end))
  
positive.code:     ((stream buffer-output-stream)
       (string string)
       &optional (start 0) end)
    (map 'string
         (lambda (c)
           (trivial-gray-streams:stream-write-char stream c))
         (subseq string start end)))
  
  (defmethod trivial-gray-streams:stream-terpri ((stream buffer-output-stream))
    (prog1 (buffer-insert-newline (buffer-output-stream-buffer stream)
  
negative.code:         (incf (buffer-output-stream-column stream)))))
  
  (defun %write-string-to-buffer-stream (stream string start end &key)
    (let ((strings
           (split-string (subseq string start end)
                         #\newline)))
      (do ((s strings (cdr s)))
          ((null s))
        (buffer-insert-line (buffer-output-stream-buffer stream)
                            (buffer-output-stream-linum stream)
                            (buffer-output-stream-column stream)
                            (car s))
        (cond ((cdr s)
               (incf (buffer-output-stream-linum stream))
               (setf (buffer-output-stream-column stream) 0))
              (t
               (incf (buffer-output-stream-column stream) (length (car s))))))
      string))
  
  (defun %write-octets-to-buffer-stream (stream octets start end &key)
  