Raymond Toy pushed to branch rtoy-issue-26 at cmucl / cmucl

Commits:

• 0e172b4b
  by Raymond Toy at 2016-11-10T19:13:53-08:00

  Fix #36: encode-universal-time errors on valid time
  
  Allow 1899 as a year, but also add a check that the resulting time is
  a non-negative integer.
  
  Add a test for this too in issues.lisp.
  

• fb864a9b
  by Raymond Toy at 2016-11-30T19:53:44-08:00

  Fix merge conflicts with master
  

• 8743d581
  by Raymond Toy at 2016-11-30T19:53:57-08:00

  Fix merge conflicts
  

2 changed files:

• src/code/time.lisp
• tests/issues.lisp

Changes:

	   (type (mod 24) hour)

	   (type (integer 1 31) date)

	   (type (integer 1 12) month)

	   (type (or (integer 0 99) (integer 1900)) year)

	   (type (or null rational) time-zone))

	   ;; 1899 to account for time zones that are equivalent to 1900.

	   (type (or (integer 0 99) (integer 1899)) year)

	   (type (or null rational) time-zone)

	   ;; Result must be non-negative integer!

	   (values (integer 0)))

  (let* ((year (if (< year 100)

		   (pick-obvious-year year)

		   year))

                                  '(".dir" "dir")

                                  :test #'string-equal)))))

(define-test issue.36

    (:tag :issues)

  (loop for k from 1 to 24 do

    (assert-equal 0 (encode-universal-time 0 0 (- 24 k) 31 12 1899 k))))

(define-test issue.26

    (:tag :issues)

  (let ((start-time (get-universal-time)))