From: Nikodemus Siivola Date: Tue, 20 Jun 2006 06:45:45 +0000 (+0000) Subject: 0.9.13.51: Ooops -- trivial fixes against previous commit X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=5a44f084aaa83629cb2914270e61fc8da23ae24f;p=sbcl.git 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 --- 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 --- 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 --- 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"