(unparse-file (missing-arg) :type function)
(unparse-enough (missing-arg) :type function)
(unparse-directory-separator (missing-arg) :type simple-string)
+ (simplify-namestring (missing-arg) :type function)
(customary-case (missing-arg) :type (member :upper :lower)))
(def!method print-object ((host host) stream)
(unparse-file #'unparse-logical-file)
(unparse-enough #'unparse-enough-namestring)
(unparse-directory-separator ";")
+ (simplify-namestring #'identity)
(customary-case :upper)))
- (name "" :type simple-base-string)
+ (name "" :type simple-string)
(translations nil :type list)
(canon-transls nil :type list))