Roll the dice four or five times and get yourself a new random-state

d7entropy.lisp

(defun converter (d20 d12 d10 d8 d4)
  (let ((prod (+ (* 3840 (1- d20))
		 (* 320 (1- d12)) 
		 (* 32 (1- d10)) 
		 (* 4 (1- d8)) 
		 (1- d4))))
    (if (> prod 65535)
	nil
	(format nil "~4,'0X" prod))))

(defun random-state-maker (integer)
  (eval (read-from-string (format nil "#S(random-state #*~64,'0B)" integer))))