(index ("pathname-expand" 0))
(def (sig (procedure "(pathname-expand STRING #!optional BASE)" (id pathname-expand))) (p "If " (tt "STRING") " is identical to " (tt "\"~\"") " or if it begins with " (tt "\"~/\"") ", return the argument with the " (tt "\"~\"") " substituted by the current user's home directory.  If the current user cannot be determined or does not exist, a condition of type " (tt "(exn pathname-expand username)") " is raised.") (p "If " (tt "STRING") " begins with " (tt "\"~USERNAME\"") ", return the argument with the " (tt "\"~USERNAME\"") " substituted by the provided user's HOME directory. On Windows, this will be the value of the environment variables " (tt "USERPROFILE") " or " (tt "HOME") " (or " (tt "\".\"") "  if none of the variables is set). On Unix systems, the user database is consulted.  If the user does not exist, a condition of type " (tt "(exn pathname-expand username)") " is raised.") (p "If " (tt "STRING") " is identical to " (tt "\"~~\"") " or if it begins with " (tt "\"~~/\"") ", return the argument with the " (tt "\"~~\"") " substituted by " (tt "(repository-path)") ".  If there is no repository path, a condition of type " (tt "(exn pathname-expand repository-path)") " is raised.") (p "If " (tt "STRING") " doesn't begin with a tilde, and it represents an absolute pathname, then it is returned unchanged. If instead it is a relative pathname the result of " (tt "(make-pathname STRING BASE)") " is returned, where " (tt "BASE") " defaults to the current working directory."))
