-;;;; PHYSICAL-HOST stuff
-
-(def!struct (unix-host
- (:make-load-form-fun make-unix-host-load-form)
- (:include host
- (parse #'parse-unix-namestring)
- (parse-native #'parse-native-unix-namestring)
- (unparse #'unparse-unix-namestring)
- (unparse-native #'unparse-native-unix-namestring)
- (unparse-host #'unparse-unix-host)
- (unparse-directory #'unparse-physical-directory)
- (unparse-file #'unparse-unix-file)
- (unparse-enough #'unparse-unix-enough)
- (unparse-directory-separator "/")
- (simplify-namestring #'simplify-unix-namestring)
- (customary-case :lower))))
-(defvar *unix-host* (make-unix-host))
-(defun make-unix-host-load-form (host)
- (declare (ignore host))
- '*unix-host*)
-
-(def!struct (win32-host
- (:make-load-form-fun make-win32-host-load-form)
- (:include host
- (parse #'parse-win32-namestring)
- (parse-native #'parse-native-win32-namestring)
- (unparse #'unparse-win32-namestring)
- (unparse-native #'unparse-native-win32-namestring)
- (unparse-host #'unparse-win32-host)
- (unparse-directory #'unparse-physical-directory)
- (unparse-file #'unparse-win32-file)
- (unparse-enough #'unparse-win32-enough)
- (unparse-directory-separator "\\")
- (simplify-namestring #'simplify-win32-namestring)
- (customary-case :lower))))
-(defparameter *win32-host* (make-win32-host))
-(defun make-win32-host-load-form (host)
- (declare (ignore host))
- '*win32-host*)