From 9bb852795e2110df2f116c34293dfdb450292736 Mon Sep 17 00:00:00 2001
From: Sudhir Shenoy <gaijin.shenoy@gmail.com>
Date: Sat, 15 Jul 2017 08:38:52 +0900
Subject: [PATCH] Convenience function add-years

---
 date-arith.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/date-arith.lisp b/date-arith.lisp
index a74340f..9f235bb 100644
--- a/date-arith.lisp
+++ b/date-arith.lisp
@@ -92,6 +92,10 @@ the month is returned."
   "Retreat date by given number of days"
   (- date days))
 
+(defun add-years (date years &key eom-rule)
+  "Add number of years to date (subtract if negative) - see add-months"
+  (add-months date (* 12 years) :eom-rule eom-rule))
+
 (defun add-months (date months &key eom-rule)
   "Add number of months to date (negative number will decrement date).
 The returned date will have the same day as the given date unless that is not a valid
@@ -291,4 +295,3 @@ Supported day conventions are:
 	 (when (= d1 31)
 	   (setf d1 30))
 	 (/ (+ (- d2 d1) (* 30 (- m2 m1)) (* 360 (- y2 y1))) 360))))))
-