Browse files

Merge pull request #2 from mcna/master

Fix for format-timestring's destination argument
  • Loading branch information...
2 parents 1b77c78 + 5797a11 commit fef360aeb1690d1af5d81929088270f135f8e2e0 @dlowe-net committed Jan 14, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/local-time.lisp
View
2 src/local-time.lisp
@@ -1550,7 +1550,7 @@ You can see examples in +ISO-8601-FORMAT+, +ASCTIME-FORMAT+, and +RFC-1123-FORMA
(declare (type (or boolean stream) destination))
(let ((result (%construct-timestring timestamp format timezone)))
(when destination
- (write-string result destination))
+ (write-string result (if (eq t destination) *standard-output* destination)))
result))
(defun format-rfc1123-timestring (destination timestamp)

0 comments on commit fef360a

Please sign in to comment.