;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Thu Apr 7 19:42:02 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/cal-mayan.el ;;; emacs version 19.22.26. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/cal-mayan.el' was compiled for Emacs 19")) (require (quote calendar)) (defalias 'mayan-adjusted-mod #[(m n) "@ S\n\"T " [mod m n] 3 "\ Non-negative remainder of M/N with N instead of 0."]) (defconst calendar-mayan-days-before-absolute-zero 1137140 "\ Number of days of the Mayan calendar epoch before absolute day 0. According to the Goodman-Martinez-Thompson correlation. This correlation is not universally accepted, as it still a subject of astro-archeological research. Using 1232041 will give you the correlation used by Spinden.") (defconst calendar-mayan-haab-at-epoch (quote (8 . 18)) "\ Mayan haab date at the epoch.") (byte-code "@B " [["Pop" "Uo" "Zip" "Zotz" "Tzec" "Xul" "Yaxkin" "Mol" "Chen" "Yax" "Zac" "Ceh" "Mac" "Kankin" "Muan" "Pax" "Kayab" "Cumku"] calendar-mayan-haab-month-name-array nil] 1) (defconst calendar-mayan-tzolkin-at-epoch (quote (4 . 20)) "\ Mayan tzolkin date at the epoch.") (byte-code "@B " [["Imix" "Ik" "Akbal" "Kan" "Chicchan" "Cimi" "Manik" "Lamat" "Muluc" "Oc" "Chuen" "Eb" "Ben" "Ix" "Men" "Cib" "Caban" "Etznab" "Cauac" "Ahau"] calendar-mayan-tzolkin-names-array nil] 1) (defalias 'calendar-mayan-long-count-from-absolute #[(date) \\