- (:make-load-form-fun make-logical-host-load-form-fun)
- (:include host
- (parse #'parse-logical-namestring)
- (unparse #'unparse-logical-namestring)
- (unparse-host
- (lambda (x)
- (logical-host-name (%pathname-host x))))
- (unparse-directory #'unparse-logical-directory)
- (unparse-file #'unparse-logical-file)
- (unparse-enough #'unparse-enough-namestring)
- (customary-case :upper)))
+ (:make-load-form-fun make-logical-host-load-form-fun)
+ (:include host
+ (parse #'parse-logical-namestring)
+ (unparse #'unparse-logical-namestring)
+ (unparse-host
+ (lambda (x)
+ (logical-host-name (%pathname-host x))))
+ (unparse-directory #'unparse-logical-directory)
+ (unparse-file #'unparse-logical-file)
+ (unparse-enough #'unparse-enough-namestring)
+ (customary-case :upper)))
(name "" :type simple-base-string)
(translations nil :type list)
(canon-transls nil :type list))
(name "" :type simple-base-string)
(translations nil :type list)
(canon-transls nil :type list))
(defun make-logical-host-load-form-fun (logical-host)
(values `(find-logical-host ',(logical-host-name logical-host))
(defun make-logical-host-load-form-fun (logical-host)
(values `(find-logical-host ',(logical-host-name logical-host))
;; the host (at present either a UNIX or logical host)
(host nil :type (or host null))
;; the name of a logical or physical device holding files
;; the host (at present either a UNIX or logical host)
(host nil :type (or host null))
;; the name of a logical or physical device holding files
;;; Logical pathnames are a subclass of PATHNAME. Their class
;;; relations are mimicked using structures for efficiency.
(sb!xc:defstruct (logical-pathname (:conc-name %logical-pathname-)
;;; Logical pathnames are a subclass of PATHNAME. Their class
;;; relations are mimicked using structures for efficiency.
(sb!xc:defstruct (logical-pathname (:conc-name %logical-pathname-)