X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftime.lisp;h=15d4c8d7f918196fcbf33b4dbd1eea17269e234c;hb=cee8ef591040db9a79cdd19297867672a9529051;hp=8cf2e00c61c95e3eee6e90031f69de1d2e9f9093;hpb=4ec0d70e08ea4b512d45ddbd6c82e8f6a91a914f;p=sbcl.git diff --git a/src/code/time.lisp b/src/code/time.lisp index 8cf2e00..15d4c8d 100644 --- a/src/code/time.lisp +++ b/src/code/time.lisp @@ -46,11 +46,11 @@ Includes both \"system\" and \"user\" time." ;;; number of seconds since 1970-01-01 ;;; I'm obliged to Erik Naggum's "Long, Painful History of Time" paper -;;; for the choice of epoch -;;; here. By starting the year in March, we avoid having to test the month -;;; whenever deciding whether to account for a leap day. 2000 is especially -;;; special, because it's disvisible by 400, hence the start of a 400 year -;;; leap year cycle +;;; for the choice of epoch here. +;;; By starting the year in March, we avoid having to test the month +;;; whenever deciding whether to account for a leap day. 2000 is +;;; especially special, because it's divisible by 400, hence the start +;;; of a 400 year leap year cycle ;;; If a universal-time is after time_t runs out, we find its offset ;;; from 1st March of whichever year it falls in, then add that to