(write-char #\: stream)
(write-string (aref +datetime-number-strings+ minute) stream)))
+(defun copy-binary-stream (in out)
+ (do* ((buf (make-array 4096 :element-type '(unsigned-byte 8)))
+ (pos (read-sequence buf in) (read-sequence buf in)))
+ ((zerop pos))
+ (write-sequence buf out :end pos)))