+
+;;; DECODE-UNIVERSAL-TIME shouldn't fail when the time is outside UNIX
+;;; 32-bit time_t and a timezone wasn't passed
+(decode-universal-time 0 nil)
+
+;;; ENCODE-UNIVERSAL-TIME should be able to encode the universal time
+;;; 0 when passed a representation in a timezone where the
+;;; representation of 0 as a decoded time is in 1899.
+(encode-universal-time 0 0 23 31 12 1899 1)
+
+;;; DISASSEMBLE shouldn't fail on purified functions
+(disassemble 'cl:+)
+(disassemble 'sb-ext:run-program)
+
+;;; minimal test of GC: see stress-gc.{sh,lisp} for a more
+;;; comprehensive test.
+(loop repeat 2
+ do (compile nil '(lambda (x) x))
+ do (sb-ext:gc :full t))
+
+;;; On x86-64, the instruction definitions for CMP*[PS][SD] were broken
+;;; so that the disassembler threw an error when they were used with
+;;; one operand in memory.
+(with-test (:name :bug-814702)
+ (disassemble (lambda (x)
+ (= #C(2.0f0 3.0f0)
+ (the (complex single-float) x))))
+ (disassemble (lambda (x y)
+ (= (the (complex single-float) x)
+ (the (complex single-float) y)))))
+
+;;; Check that SLEEP called with ratios (with no common factors with
+;;; 1000000000, and smaller than 1/1000000000) works more or less as
+;;; expected.
+(with-test (:name :sleep-ratios)
+ (let ((fun0a (compile nil '(lambda () (sleep 1/7))))
+ (fun0b (compile nil '(lambda () (sleep 1/100000000000000000000000000))))
+ (fun1 (compile nil '(lambda (x) (sleep x))))
+ (start-time (get-universal-time)))
+ (sleep 1/7)
+ (sleep 1/100000000000000000000000000)
+ (funcall fun0a)
+ (funcall fun0b)
+ (funcall fun1 1/7)
+ (funcall fun1 1/100000000000000000000000000)
+ (assert (< (- (get-universal-time) start-time) 2))))