(customary-case (required-argument) :type (member :upper :lower)))
(def!struct (logical-host
+ (:make-load-form-fun make-logical-host-load-form-fun)
(:include host
(:parse #'parse-logical-namestring)
(:unparse #'unparse-logical-namestring)
(print-unreadable-object (logical-host stream :type t)
(prin1 (logical-host-name logical-host) stream)))
+;;; What would it mean to dump a logical host and reload it into
+;;; another Lisp image? It's not clear, so we don't support it.
+(defun make-logical-host-load-form-fun (logical-host)
+ (error "~@<A logical host can't be dumped as a constant: ~2I~_~S~:>"
+ logical-host))
+
;;; A PATTERN is a list of entries and wildcards used for pattern
;;; matches of translations.
(sb!xc:defstruct (pattern (:constructor make-pattern (pieces)))
;; on standard Unix filesystems)
(version nil :type (or integer pathname-component-tokens (member :newest))))
+;;; Return a value suitable, e.g., for preinitializing
+;;; *DEFAULT-PATHNAME-DEFAULTS* before *DEFAULT-PATHNAME-DEFAULTS* is
+;;; initialized (at which time we can't safely call e.g. #'PATHNAME).
+(defun make-trivial-default-pathname ()
+ (%make-pathname *unix-host* nil nil nil nil :newest))
+
;;; Logical pathnames have the following format:
;;;
;;; logical-namestring ::=