simple commonlisp date-time utility