/[gcl]/gcl/ansi-tests/numbers-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/numbers-aux.lsp

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

revision 1.8 by pfdietz, Sun Aug 31 02:18:49 2003 UTC revision 1.9 by pfdietz, Mon Sep 1 01:15:02 2003 UTC
# Line 190  Line 190 
190    (if (coin) (random-nonnegative-real)    (if (coin) (random-nonnegative-real)
191      (- (random-nonnegative-real))))      (- (random-nonnegative-real))))
192    
193    (defun random-fixnum ()
194      (+ (random (1+ (- most-positive-fixnum most-negative-fixnum)))
195         most-negative-fixnum))
196    
197    (defun random-from-interval (upper &optional (lower (- upper)))
198      (+ (random (- upper lower)) lower))
199    
200  (defun epsilon (number)  (defun epsilon (number)
201    (etypecase number    (etypecase number
202      (short-float short-float-epsilon)      (short-float short-float-epsilon)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26