local-time is a development library for manipulating date and time information in a semi-standard manner.
You can see the coding:
https://gist.github.com/juan-reynoso/1bdee3bd87c7bc729f9a234236ba8e92
In order to run the functions you need to load local-time.
(ql:quickload "local-time")
And using local-time package
(in-package :local-time)
LOCAL-TIME> (defparameter *timestamp-a* (now))
*TIMESTAMP-A*
LOCAL-TIME> *timestamp-a*
@2021-09-29T10:01:04.508357-05:00
LOCAL-TIME> (defparameter *timestamp-b* (timestamp+ (now) -1 :hour))
*TIMESTAMP-B*
LOCAL-TIME> *timestamp-b*
@2021-09-29T09:01:34.356281-05:00
LOCAL-TIME> (defparameter *timestamp-c* (timestamp+ (now) 1 :day))
*TIMESTAMP-C*
LOCAL-TIME> *timestamp-c*
@2021-09-30T10:01:47.539932-05:00
LOCAL-TIME> (date= *timestamp-a* *timestamp-b*)
T
LOCAL-TIME> (date= *timestamp-a* *timestamp-c*)
NIL
LOCAL-TIME> (date< *timestamp-a* *timestamp-c*)
T
LOCAL-TIME> (date<= *timestamp-a* *timestamp-c*)
T
LOCAL-TIME> (date> *timestamp-a* *timestamp-c*)
NIL
LOCAL-TIME> (date> *timestamp-c* *timestamp-a*)
T
LOCAL-TIME> (date>= *timestamp-c* *timestamp-a*)
T
LOCAL-TIME>