0.pre7.67:

[sbcl.git] / src / code / format-time.lisp

diff --git a/src/code/format-time.lisp b/src/code/format-time.lisp
index e23ff4b..9736122 100644 (file)
--- a/src/code/format-time.lisp
+++ b/src/code/format-time.lisp
@@ -9,7 +9,7 @@
 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
 ;;;; files for more information.
 
-(in-package "SB!EXT")
+(in-package "SB!IMPL")
 
 (defparameter *abbrev-weekday-table*
   #("Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun"))
@@ -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))