anchor.diff:                     (ob output-buffer-of)
                      (dirtyp dirtyp))
         stream
  -    (%flush-obuf write-fn fd ob)
  -    (setf dirtyp nil)
  -    nil))
  +    (%write-octets-from-iobuf write-fn fd ob)
  +    (setf dirtyp nil)))
   
   (defmethod stream-force-output ((stream dual-channel-gray-stream))
     (setf (dirtyp stream) t))
  
positive.code: 
  (defmethod stream-write-char ((stream dual-channel-gray-stream)
                                (character character))
    (%flush-obuf-if-needed stream)
    (if (char= character #\Newline)
        (%write-line-terminator
         stream (babel:external-format-eol-style (external-format-of stream)))
  
negative.code:              (iobuf-copy-from-lisp-array array start ob
                                           (iobuf-end ob) octets-needed)
               (incf (iobuf-end ob) octets-needed)
               (flush-obuf-if-needed stream))
              (t
               (with-pointer-to-vector-data (ptr array)
                 (%write-octets-from-iobuf write-fn fd ob)
                 (%write-octets-from-foreign-memory write-fn fd (inc-pointer ptr start) octets-needed))))
        (values array))))
  
  (defun %write-vector-ub8 (stream vector start end)
  