Fix leap year off-by-one bug in date arithmetic

Closes marijnh#12
mcna · Mar 22, 2012 · 3e6dd76 · 3e6dd76
1 parent 0346165
commit 3e6dd76
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/simple-date/simple-date.lisp b/simple-date/simple-date.lisp
@@ -121,7 +121,7 @@ milliseconds."
   "Days in a certain month -- note that these months use internal
 encoding."
   (case month
-    (11 (if (leap-year-p year) 29 28))
+    (11 (if (leap-year-p (1+ year)) 29 28))
     ((1 3 6 8) 30)
     (t 31)))