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

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