github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-26 12:12:12 +00:00
Code Issues Releases Wiki Activity

Use 4-digit years in LIBDOC; SUN.

Browse Source
This commit is contained in:
Adam Sampson
2018-07-27 17:44:22 +01:00
committed by Adam Sampson
parent eb9e05cea4
commit dd878358cf
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/libdoc/sun.bkph77 → src/libdoc/sun.78
View File

@@ -240,7 +240,7 @@
(DEFUN SUN-NOW-HERE NIL
(SUN LONGITUDE
LATITUDE
(UPDATE (STATUS DATE) 1900.)
(STATUS DATE)
(UPDATE (STATUS DAYTIME) GMT-OFFSET)))
;;; CALCULATE DAY OF WEEK FROM DAYS SINCE 1975/01/01
@@ -279,4 +279,4 @@
;;; GIVE NORMAL OFFSET FROM G.M.T. IN HOURS AS SECOND ARGUMENT
(SETQ GMT-OFFSET (+ (DAY-SAVE-CROCK (UPDATE (STATUS DATE) 1900.)) 5.))
(SETQ GMT-OFFSET (+ (DAY-SAVE-CROCK (STATUS DATE)) 5.))