(do-test "timeall OK"
	(AND (EQL (IL:timeall (car '(1 2))) 1)
		(EQL (IL:timeall (car '(1 2)) 10) 1)
		))


(DO-TEST "time OK"
	(AND (EQL (time (car '(1 2))) 1)
		(EQL (time (car '(1 2)) :repeat 10) 1)
		(multiple-value-bind (a b) (time (values 1 2)) (and (eql a 1) (eql b 2)))
		(multiple-value-bind (a b) (time (values 1 2) :repeat 10)
			(and (eql a 1) (eql b 2)))
		))

(do-test "AR 7648 - encode-universal-time"
	(and (= (encode-universal-time 1 0 0 1 1 1900 0) 1)
		(= (encode-universal-time 1 0 0 1 1 1976 0) 2398291201)
		(= (encode-universal-time 0 0 0 1 1 3000 0) 34712668800)))