From: Nikodemus S. <de...@us...> - 2006-06-20 06:45:50
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv13827/src/code Modified Files: filesys.lisp toplevel.lisp Log Message: 0.9.13.51: Ooops -- trivial fixes against previous commit * s/PARSE-NATIVE-PATHNAME/PARSE-NATIVE-NAMESTRING/ * Fix garbld docstring in user-homedir-pathname. Index: filesys.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/filesys.lisp,v retrieving revision 1.58 retrieving revision 1.59 diff -u -d -r1.58 -r1.59 --- filesys.lisp 20 Jun 2006 05:38:43 -0000 1.58 +++ filesys.lisp 20 Jun 2006 06:45:45 -0000 1.59 @@ -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 Index: toplevel.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/toplevel.lisp,v retrieving revision 1.85 retrieving revision 1.86 diff -u -d -r1.85 -r1.86 --- toplevel.lisp 20 Jun 2006 05:38:43 -0000 1.85 +++ toplevel.lisp 20 Jun 2006 06:45:45 -0000 1.86 @@ -475,7 +475,7 @@ (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)) |