(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 ::=
;;; Physical pathnames include all these slots and a device slot.
;;; Logical pathnames are a subclass of PATHNAME. Their class
-;;; relations are mimicked using structures for efficency.
+;;; relations are mimicked using structures for efficiency.
(sb!xc:defstruct (logical-pathname (:conc-name %logical-pathname-)
(:include pathname)
(:constructor %make-logical-pathname
name
type
version))))
-\f
-(defmacro-mundanely enumerate-search-list ((var pathname &optional result)
- &body body)
- #!+sb-doc
- "Execute BODY with VAR bound to each successive possible expansion for
- PATHNAME and then return RESULT. Note: if PATHNAME does not contain a
- search-list, then BODY is executed exactly once. Everything is wrapped
- in a block named NIL, so RETURN can be used to terminate early. Note:
- VAR is *not* bound inside of RESULT."
- (let ((body-name (gensym)))
- `(block nil
- (flet ((,body-name (,var)
- ,@body))
- (%enumerate-search-list ,pathname #',body-name)
- ,result))))
-