/[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.7 by pfdietz, Mon Nov 11 01:48:33 2002 UTC revision 1.8 by pfdietz, Sun Jan 19 15:20:56 2003 UTC
# Line 148  Line 148 
148                    ((2 3) (random (1+ len)))                    ((2 3) (random (1+ len)))
149                    (t (if (coin) -1 -10000000000000))))                    (t (if (coin) -1 -10000000000000))))
150           (seq (multiple-value-bind (x y z) (make-random-remove-input len type element-type)           (seq (multiple-value-bind (x y z) (make-random-remove-input len type element-type)
151                    (declare (ignore x z))
152                  y))                  y))
153           (key (and (coin)           (key (and (coin)
154                     (case type-select                     (case type-select
# Line 172  Line 173 
173  (defun random-test-remove-args (maxlen)  (defun random-test-remove-args (maxlen)
174    (multiple-value-bind (element-type type len start end from-end count seq key test test-not)    (multiple-value-bind (element-type type len start end from-end count seq key test test-not)
175        (make-random-rd-params maxlen)        (make-random-rd-params maxlen)
176        (declare (ignore type))
177      (let ((element (if (and (coin) (> len 0))      (let ((element (if (and (coin) (> len 0))
178                         (random-from-seq seq)                         (random-from-seq seq)
179                       (make-random-element element-type)))                       (make-random-element element-type)))

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

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