-(sb!xc:defstruct (host (:constructor nil))
- (parse (required-argument) :type function)
- (unparse (required-argument) :type function)
- (unparse-host (required-argument) :type function)
- (unparse-directory (required-argument) :type function)
- (unparse-file (required-argument) :type function)
- (unparse-enough (required-argument) :type function)
- (customary-case (required-argument) :type (member :upper :lower)))
+(def!struct (host (:constructor nil))
+ (parse (missing-arg) :type function)
+ (parse-native (missing-arg) :type function)
+ (unparse (missing-arg) :type function)
+ (unparse-native (missing-arg) :type function)
+ (unparse-host (missing-arg) :type function)
+ (unparse-directory (missing-arg) :type function)
+ (unparse-file (missing-arg) :type function)
+ (unparse-enough (missing-arg) :type function)
+ (unparse-directory-separator (missing-arg) :type simple-string)
+ (customary-case (missing-arg) :type (member :upper :lower)))
+
+(def!method print-object ((host host) stream)
+ (print-unreadable-object (host stream :type t :identity t)))