gistfile1.lisp

(defun rands () 
  (list (random 100 #.*random-state*)
        (random 100 #.*random-state*)
        (random 100 #.*random-state*)))

;; ccl: 毎回違う
(list (rands) (rands) (rands))

;; ccl: 毎回同じ結果
;; sbcl: 毎回違う
(defun rands1 () 
  (list (random 100 *random-state*)
        (random 100 *random-state*)
        (random 100 *random-state*)))

(list (rands1) (rands1) (rands1)) ;=> (91 6 55)

(defun rands2 () 
  (let ((rs (make-random-state T)))
    (list (random 100 rs)
          (random 100 rs)
          (random 100 rs))))

;; ccl: 毎回違う 
;; sbcl 連続で同じで次のパターンへ
(list (rands2) (rands2) (rands2))