X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fformat-time.lisp;h=97361226f6212e305a23787198111ddcd24fa6bd;hb=860543cc7ba0266e41e1d41ac9b6a208f3795f1a;hp=33d07c0898ae3f1281ee4281c147f9a7daa3170a;hpb=e5f24ebc38e38c986df830fd1e4035d16bea4e5c;p=sbcl.git

diff --git a/src/code/format-time.lisp b/src/code/format-time.lisp
index 33d07c0..9736122 100644
--- a/src/code/format-time.lisp
+++ b/src/code/format-time.lisp
@@ -35,7 +35,7 @@
 ;;; FORMAT function.
 (defun valid-destination-p (destination)
   (or (not destination)
-      (eq destination 't)
+      (eq destination t)
       (streamp destination)
       (and (stringp destination)
 	   (array-has-fill-pointer-p destination))))
@@ -70,8 +70,8 @@
    The style keyword can be :SHORT (numeric date), :LONG (months and
    weekdays expressed as words), :ABBREVIATED (like :LONG but words are
    abbreviated), or :GOVERNMENT (of the form \"XX Month XXXX XX:XX:XX\")
-   The keyword argument DATE-FIRST, if nil, will print the time first instead
-   of the date (the default). The PRINT- keywords, if nil, inhibit
+   The &KEY argument :DATE-FIRST, if NIL, will print the time first instead
+   of the date (the default). The PRINT- keywords, if NIL, inhibit
    the printing of the obvious part of the time/date."
   (unless (valid-destination-p destination)
     (error "~A: Not a valid format destination." destination))