anchor.diff:               (iobuf-copy-from-lisp-array array start ob
                                            (iobuf-end ob) octets-needed)
                (incf (iobuf-end ob) octets-needed)
  -             (%flush-obuf-if-needed stream))
  +             (flush-obuf-if-needed stream))
               (t
                (with-pointer-to-vector-data (ptr array)
  -               (%flush-obuf write-fn fd ob)
  -               (%write-n-bytes write-fn fd (inc-pointer ptr start) octets-needed))))
  +               (%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)
  
positive.code:                    (ob output-buffer-of)
                     (dirtyp dirtyp))
        stream
      (%flush-obuf write-fn fd ob)
      (setf dirtyp nil)
      nil))
  
  (defmethod stream-force-output ((stream dual-channel-gray-stream))
    (setf (dirtyp stream) t))
  
negative.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)))
  