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:         (incf (buffer-output-stream-column stream)))))
  
  (defun %write-string-to-buffer-stream (stream string start end &key)
    (let ((string (subseq string start end)))
      (loop :for c :across string :do
         (trivial-gray-streams:stream-write-char stream c))
      string))
  
  (defun %write-octets-to-buffer-stream (stream octets start end &key)
  
negative.code:     ((stream buffer-output-stream)
       (string string)
       &optional (start 0) end)
    (%write-string-to-buffer-stream stream string start end))
  
  (defmethod trivial-gray-streams:stream-terpri ((stream buffer-output-stream))
    (prog1 (buffer-insert-newline (buffer-output-stream-buffer stream)
  