anchor.diff:          (setf truename (make-pathname :directory (append (pathname-directory dir-truename)
                                                            (list (pathname-name dir-truename)))
                                         :defaults truename))))
  -    (format t "Creating file ~S.~%" truename)
       (let ((key (cons (pathname-name truename) (pathname-type truename)))
             (file (make-instance 'local-file
                                  :truename truename
                                  :storage (make-array 0
                                                       :element-type element-type
                                                       :adjustable t
  -                                                    :fill-pointer 0
  -                                                    :area :pinned)
  +                                                    :fill-pointer 0)
                                  :plist (list :creation-time time
                                               :write-time time))))
         (cond (container
  
positive.code:                           :defaults truename))
            (t
             truename))))
  
negative.code:   (print-unreadable-object (object stream :type t :identity t)
      (format stream "~S" (file-truename object))))
  
  (defclass local-stream (sys.gray:fundamental-stream file-stream)
    ((%file :initarg :file :reader local-stream-file)
     (%pathname :initarg :pathname :reader file-stream-pathname)
     (%position :initarg :position :accessor stream-position)
     (%direction :initarg :direction :reader direction)
     (%superseded-file :initarg :superseded-file :reader superseded-file))
    (:default-initargs :superseded-file nil))
  
  (defclass local-character-stream (local-stream
                                    sys.gray:fundamental-character-input-stream
                                    sys.gray:fundamental-character-output-stream
                                    sys.gray:unread-char-mixin)
    ())
  
  (defclass local-binary-stream (local-stream
                                 sys.gray:fundamental-binary-input-stream
                                 sys.gray:fundamental-binary-output-stream)
    ())
  
  (defclass translating-stream (file-stream sys.gray:fundamental-character-stream)
    ((%underlying-stream :initarg :underlying-stream :reader translating-underlying-stream)))
  
  (defclass translating-input-stream (translating-stream
                                      sys.gray:fundamental-character-input-stream
                                      sys.gray:unread-char-mixin)
    ())
  
  (defclass translating-output-stream (translating-stream
                                       sys.gray:fundamental-character-output-stream)
    ())
  
  (defmacro with-host-locked ((host) &body body)
    `(mezzano.supervisor:with-mutex ((local-host-lock ,host))
  