anchor.diff:     (stdout :initform nil :reader process-stdout)
      (stderr :initform nil :reader process-stderr)))
   
  -(defmethod initialize-instance :after ((process process) &key stdin stdout stderr)
  +(defmethod initialize-instance :after ((process process) &key
  +                                       stdin stdout stderr external-format)
     (with-slots ((in stdin) (out stdout) (err stderr))
         process
  -    (setf in  (and stdin  (make-instance 'iolib.streams:dual-channel-gray-stream :fd stdin))
  -          out (and stdout (make-instance 'iolib.streams:dual-channel-gray-stream :fd stdout))
  -          err (and stderr (make-instance 'iolib.streams:dual-channel-gray-stream :fd stderr)))))
  +    (setf in  (and stdin  (make-instance 'iolib.streams:dual-channel-gray-stream
  +                                         :fd stdin :external-format external-format))
  +          out (and stdout (make-instance 'iolib.streams:dual-channel-gray-stream
  +                                         :fd stdout :external-format external-format))
  +          err (and stderr (make-instance 'iolib.streams:dual-channel-gray-stream
  +                                         :fd stderr :external-format external-format)))))
   
   (defmethod close ((process process) &key abort)
     (with-slots (pid reaped stdin stdout stderr)
  
positive.code:                                    :environment environment
                                     :stdin nil
                                     :stdout :pipe
                                     :stderr stderr)))
        (unwind-protect
             (values (process-wait process)
                     (slurp (process-stdout process))
  
negative.code:                                         uid gid resetids)
                (lfp-spawnp pid arg0 argv envp file-actions attributes)
                (make-instance 'process :pid (mem-ref pid 'pid-t)
                               :stdin infd :stdout outfd :stderr errfd
                               :external-format external-format))))))))
  
  (defun run-program (program-and-args &key (environment t) (stderr :pipe)
                      (external-format :utf-8))
    (flet ((slurp (stream)
             (with-output-to-string (s)
               (loop :for c := (read-char stream nil nil)
  