Commit 6bd677fa authored by Karl Heuer's avatar Karl Heuer
Browse files

(chinese-year-cache): Change range of years from

1989-2000 to 1990-2010.
parent f38d3514
......@@ -182,9 +182,7 @@ The Zodiac signs begin when the sun's longitude is a multiple of 30 degrees."
(calendar-astro-from-absolute d))))))
(defvar chinese-year-cache
'((1989 (12 726110) (1 726139) (2 726169) (3 726198) (4 726227) (5 726257)
(6 726286) (7 726316) (8 726345) (9 726375) (10 726404) (11 726434))
(1990 (12 726464) (1 726494) (2 726523) (3 726553) (4 726582) (5 726611)
'((1990 (12 726464) (1 726494) (2 726523) (3 726553) (4 726582) (5 726611)
(5.5 726641) (6 726670) (7 726699) (8 726729) (9 726758) (10 726788)
(11 726818))
(1991 (12 726848) (1 726878) (2 726907) (3 726937) (4 726966) (5 726995)
......@@ -209,12 +207,36 @@ The Zodiac signs begin when the sun's longitude is a multiple of 30 degrees."
(1999 (12 729771) (1 729801) (2 729831) (3 729860) (4 729889) (5 729919)
(6 729948) (7 729977) (8 730007) (9 730036) (10 730066) (11 730096))
(2000 (12 730126) (1 730155) (2 730185) (3 730215) (4 730244) (5 730273)
(6 730303) (7 730332) (8 730361) (9 730391) (10 730420) (11 730450)))
(6 730303) (7 730332) (8 730361) (9 730391) (10 730420) (11 730450))
(2001 (12 730480) (1 730509) (2 730539) (3 730569) (4 730598) (4.5 730628)
(5 730657) (6 730687) (7 730716) (8 730745) (9 730775) (10 730804)
(11 730834))
(2002 (12 730863) (1 730893) (2 730923) (3 730953) (4 730982) (5 731012)
(6 731041) (7 731071) (8 731100) (9 731129) (10 731159) (11 731188))
(2003 (12 731218) (1 731247) (2 731277) (3 731307) (4 731336) (5 731366)
(6 731396) (7 731425) (8 731455) (9 731484) (10 731513) (11 731543))
(2004 (12 731572) (1 731602) (2 731631) (2.5 731661) (3 731690) (4 731720)
(5 731750) (6 731779) (7 731809) (8 731838) (9 731868) (10 731897)
(11 731927))
(2005 (12 731956) (1 731986) (2 732015) (3 732045) (4 732074) (5 732104)
(6 732133) (7 732163) (8 732193) (9 732222) (10 732252) (11 732281))
(2006 (12 732311) (1 732340) (2 732370) (3 732399) (4 732429) (5 732458)
(6 732488) (7 732517) (7.5 732547) (8 732576) (9 732606) (10 732636)
(11 732665))
(2007 (12 732695) (1 732725) (2 732754) (3 732783) (4 732813) (5 732842)
(6 732871) (7 732901) (8 732930) (9 732960) (10 732990) (11 733020))
(2008 (12 733049) (1 733079) (2 733109) (3 733138) (4 733167) (5 733197)
(6 733226) (7 733255) (8 733285) (9 733314) (10 733344) (11 733374))
(2009 (12 733403) (1 733433) (2 733463) (3 733493) (4 733522) (5 733551)
(5.5 733581) (6 733610) (7 733639) (8 733669) (9 733698) (10 733728)
(11 733757))
(2010 (12 733787) (1 733817) (2 733847) (3 733876) (4 733906) (5 733935)
(6 733965) (7 733994) (8 734023) (9 734053) (10 734082) (11 734112)))
"An assoc list of Chinese year structures as determined by `chinese-year'.
Values are computed as needed, but to save time, the initial value consists
of the precomputed years 1989-2000. The code works just as well with this
set to nil initially (which is how the value for 1989-2000 was computed).")
of the precomputed years 1990-2010. The code works just as well with this
set to nil initially (which is how the value for 1990-2010 was computed).")
(defun chinese-year (y)
"The structure of the Chinese year for Gregorian year Y.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment