projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.12.13:
[sbcl.git]
/
src
/
code
/
filesys.lisp
diff --git
a/src/code/filesys.lisp
b/src/code/filesys.lisp
index
ebd6325
..
6985a3d
100644
(file)
--- a/
src/code/filesys.lisp
+++ b/
src/code/filesys.lisp
@@
-1031,9
+1031,9
@@
(defun default-directory ()
#!+sb-doc
(defun default-directory ()
#!+sb-doc
- "Returns the pathname for the default directory. This is the place where
+ "Return the pathname for the default directory. This is the place where
a file will be written if no directory is specified. This may be changed
a file will be written if no directory is specified. This may be changed
- with setf."
+ with SETF."
(multiple-value-bind (gr dir-or-error) (sb!unix:unix-current-directory)
(if gr
(let ((*ignore-wildcards* t))
(multiple-value-bind (gr dir-or-error) (sb!unix:unix-current-directory)
(if gr
(let ((*ignore-wildcards* t))