X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix-pathname.lisp;h=48ebabe7b0ea5a6a5b587ff2bd3b99992ac9e4cb;hb=9de65d498a9da0c70a60ea2bf9b5af39aaffe55d;hp=739305244770df0fff84db5a4ce9653f115b9989;hpb=cf49f2d086069a9c1b57f501df9a6a0bd3a34c3c;p=sbcl.git

diff --git a/src/code/unix-pathname.lisp b/src/code/unix-pathname.lisp
index 7393052..48ebabe 100644
--- a/src/code/unix-pathname.lisp
+++ b/src/code/unix-pathname.lisp
@@ -11,6 +11,23 @@
 
 (in-package "SB!IMPL")
 
+(def!struct (unix-host
+             (:make-load-form-fun make-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 *physical-host* (make-unix-host))
+
 ;;; Take a string and return a list of cons cells that mark the char
 ;;; separated subseq. The first value is true if absolute directories
 ;;; location.