X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=6985a3d0ff6fb0bb9f3df92761bfccb8bbdeaad1;hb=b19093fa94d6e1785abee99c35c9a610e8777671;hp=ebd6325e2720c329a5c2981cbc4c0058f21724ee;hpb=5108495b13b99452d5a85c4600f68432ff8894b2;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index ebd6325..6985a3d 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -1031,9 +1031,9 @@
 
 (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
-  with setf."
+  with SETF."
   (multiple-value-bind (gr dir-or-error) (sb!unix:unix-current-directory)
     (if gr
 	(let ((*ignore-wildcards* t))