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

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

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

revision 1.10 by pfdietz, Sat Aug 2 18:35:19 2003 UTC revision 1.11 by pfdietz, Tue Sep 28 12:55:55 2004 UTC
# Line 9  Line 9 
9    (cond    (cond
10     ((subtypep* 'fixnum type)     ((subtypep* 'fixnum type)
11      (random most-positive-fixnum))      (random most-positive-fixnum))
12       ((and (listp type)
13             (eql (car type) 'integer)
14             (integerp (cadr type))
15             (integerp (caddr type))
16             (null (cdddr type)))
17        (+ (cadr type) (random (- (1+ (caddr type)) (cadr type)))))
18     ((subtypep* '(integer 0 255) type)     ((subtypep* '(integer 0 255) type)
19      (random 255))      (random 255))
20     ((subtypep* '(integer 0 7) type)     ((subtypep* '(integer 0 7) type)
# Line 131  Line 137 
137    
138  (defun make-random-rd-params (maxlen)  (defun make-random-rd-params (maxlen)
139    "Generate random paramaters for remove/delete/etc. functions."    "Generate random paramaters for remove/delete/etc. functions."
140    (let* ((element-type t)    (let* ((element-type
141              (rcase
142               (2 t)
143               (1 'bit)
144               (1 '(integer 0 2))
145               (1 'symbol)))
146           (type-select (random 7))           (type-select (random 7))
147           (type           (type
148            (case type-select            (case type-select

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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