/[cmucl]/src/code/rand.lisp
ViewVC logotype

Diff of /src/code/rand.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9.2.2 by pw, Tue Jun 23 11:22:23 1998 UTC revision 1.12 by rtoy, Fri Mar 19 15:18:59 2010 UTC
# Line 16  Line 16 
16  ;;;  ;;;
17  #-new-random  #-new-random
18  (in-package "LISP")  (in-package "LISP")
19    (intl:textdomain "cmucl")
20    
21  #-new-random  #-new-random
22  (export '(random-state random-state-p random *random-state*  (export '(random-state random-state-p random *random-state*
23            make-random-state))            make-random-state))
# Line 87  Line 89 
89          ((random-state-p state) (copy-state state))          ((random-state-p state) (copy-state state))
90          ((eq state t) (setq rand-seed (get-universal-time))          ((eq state t) (setq rand-seed (get-universal-time))
91                        (make-random-object))                        (make-random-object))
92          (t (error "Argument is not a RANDOM-STATE, T or NIL: ~S" state))))          (t (error 'simple-type-error
93                      :expected-type '(or null t (satisfies random-state-p))
94                      :datum state
95                      :format-control "Argument is not a RANDOM-STATE, T or NIL: ~S"
96                      :format-arguments (list state)))))
97    
98    
99  ;;;; Random entries:  ;;;; Random entries:
# Line 331  Line 337 
337          ((eq state t)          ((eq state t)
338           (setq rand-seed (mod (get-universal-time) 900000000))           (setq rand-seed (mod (get-universal-time) 900000000))
339           (make-random-object))           (make-random-object))
340          (t          (t (error 'simple-type-error
341           (error "Argument is not a RANDOM-STATE, T or NIL: ~S" state))))                    :expected-type '(or null t (satisfies random-state-p))
342                      :datum state
343                      :format-control "Argument is not a RANDOM-STATE, T or NIL: ~S"
344                      :format-arguments (list state)))))
345    
346    
347  ;;;; Random entries  ;;;; Random entries

Legend:
Removed from v.1.9.2.2  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5