17 lines
448 B
Plaintext
17 lines
448 B
Plaintext
;;; 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
|
|
|