/[gcl]/gcl/ansi-tests/random-int-form.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/random-int-form.lsp

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

revision 1.2 by pfdietz, Fri Sep 12 02:37:33 2003 UTC revision 1.3 by pfdietz, Fri Sep 12 12:35:27 2003 UTC
# Line 206  Line 206 
206  (defun make-random-byte-spec-form (size vars)  (defun make-random-byte-spec-form (size vars)
207    (declare (ignore size vars))    (declare (ignore size vars))
208    (let* ((pform (random 33))    (let* ((pform (random 33))
209           (sform (random 33)))           (sform (1+ (random 33))))
210      `(byte ,sform ,pform)))      `(byte ,sform ,pform)))
211                    
212  (defun random-partition (n p)  (defun random-partition (n p)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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