Permalink
Browse files

fix (local-time::%valid-date? (local-time:today))

  • Loading branch information...
attila-lendvai committed Jun 10, 2010
1 parent 8c8aac7 commit da26dc14448e612a7e3e862789e90231fb9bb13c
Showing with 4 additions and 1 deletion.
  1. +4 −1 src/local-time.lisp
View
@@ -1090,7 +1090,10 @@ elements."
(defun today ()
"Returns a timestamp representing the present day."
;; TODO should return a date value, anyhow we will decide to represent it eventually
- (timestamp-minimize-part (now) :hour))
+ (let ((result (now)))
+ (setf (sec-of result) 0)
+ (setf (nsec-of result) 0)
+ result))
(defmacro %defcomparator (name &body body)
(let ((pair-comparator-name (intern (concatenate 'string "%" (string name)))))

0 comments on commit da26dc1

Please sign in to comment.