0.8.0.24:

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

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