0.9.13.51: Ooops -- trivial fixes against previous commit

  * s/PARSE-NATIVE-PATHNAME/PARSE-NATIVE-NAMESTRING/
  * Fix garbld docstring in user-homedir-pathname.

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 55048db..952fdce 100644 (file)
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -569,10 +569,10 @@
 
 ;;; (This is an ANSI Common Lisp function.)
 (defun user-homedir-pathname (&optional host)
-  "Return the home directory of the user as a pathname. If the
-HOME environment variable has be specified, returns the directory
-is designated, otherwise obtains the home directory from the
-operating system."
+  "Return the home directory of the user as a pathname. If the HOME
+environment variable has been specified, the directory it designates
+is returned; otherwise obtains the home directory from the operating
+system."
   (declare (ignore host))
   (parse-native-namestring
    (ensure-trailing-slash

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index ade40b9..f9fb1f6 100644 (file)
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -475,7 +475,7 @@ steppers to maintain contextual information.")
                (declare (type list default-init-file-names))
                (if explicitly-specified-init-file-name
                    (or (probe-file
-                        (parse-native-pathname
+                        (parse-native-namestring
                          explicitly-specified-init-file-name))
                        (startup-error "The file ~S was not found."
                                       explicitly-specified-init-file-name))

diff --git a/version.lisp-expr b/version.lisp-expr
index a7d8a93..b8dff87 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.13.50"
+"0.9.13.51"