Lines Matching defs:year
60 (defvar displayed-year)
711 (extract-calendar-year
736 (defun solar-ephemeris-correction (year)
737 "Ephemeris time minus Universal Time during Gregorian year.
742 (cond ((and (<= 1988 year) (< year 2020))
743 (/ (+ year -2000 67.0) 60.0 60.0 24.0))
744 ((and (<= 1900 year) (< year 1988))
747 (list 7 1 year)))
764 ((and (<= 1800 year) (< year 1900))
767 (list 7 1 year)))
787 ((and (<= 1620 year) (< year 1800))
788 (let ((x (/ (- year 1600) 10.0)))
792 (list 1 1 year)))
969 (defun solar-equinoxes/solstices (k year)
976 (let* ((JDE0 (solar-mean-equinoxes/solstices k year))
998 (defun solar-mean-equinoxes/solstices (k year)
1002 (let ((y (/ year 1000.0))
1003 (z (/ (- year 2000) 1000.0)))
1004 (if (< year 1000) ; actually between -1000 and 1000
1052 (y displayed-year))