(def!method print-object ((state random-state) stream)
(if (and *print-readably* (not *read-eval*))
- (error 'print-not-readable :object state)
+ (print-not-readable-error state stream)
(format stream "#S(~S ~S #.~S)"
'random-state
':state
- `(make-array (,(+ 3 mt19937-n))
+ `(make-array ,(+ 3 mt19937-n)
:element-type
'(unsigned-byte 32)
:initial-contents