;;; woz 4/27/87 test for CMLRAND - 7511
(do-test "random state symbols are globally-special" 
  (and (get '*random-state* 'il:globally-special)
       (get '*read-default-float-format* 'il:globally-special))
)

;;; test for CMLRAND - 7263
(do-test "make-random-state's are equalp"
  (and (equalp (make-random-state)
               (make-random-state))
       (not (equalp (make-random-state t)
                    (make-random-state t))))
)

stop