time.lisp
Alan Caulkins <[email protected]> Thu, 6 Apr 2006 18:58:57 -0500
| Newsgroups | gmane.lisp.clsql.devel |
|---|---|
| Message-ID | <[email protected]> |
Here's a minor patch against time.lisp... (current-day) was returning the current month and (current-month) was returning the current day. No biggie. -A -- Maxint Consulting Linux: The ultimate video game. _______________________________________________ CLSQL-Devel mailing list [email protected] http://lists.b9.com/mailman/listinfo/clsql-devel
time.lisp-4-6-2006.patch
(text/plain, 555 B)
--- clsql-3.5.6/sql/time.lisp 2006-01-16 15:46:14.000000000 -0600 +++ clsql-3.5.6-a/sql/time.lisp 2006-04-06 15:20:56.000000000 -0500 @@ -878,10 +878,10 @@ (third (mjd-to-gregorian (time-mjd (get-time))))) (defun current-month () - (second (mjd-to-gregorian (time-mjd (get-time))))) + (first (mjd-to-gregorian (time-mjd (get-time))))) (defun current-day () - (first (mjd-to-gregorian (time-mjd (get-time))))) + (second (mjd-to-gregorian (time-mjd (get-time))))) (defun parse-date-time (string) "parses date like 08/08/01, 8.8.2001, eg"