Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |