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

diff --git a/src/code/format-time.lisp b/src/code/format-time.lisp
index e23ff4b..9736122 100644
--- 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))