/[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.18 by pfdietz, Sat Oct 11 14:10:37 2003 UTC revision 1.19 by pfdietz, Sat Oct 11 16:00:14 2003 UTC
# Line 151  Line 151 
151          `(,op ,(make-random-integer-form (1- size)))))          `(,op ,(make-random-integer-form (1- size)))))
152       (2 `(isqrt (abs ,(make-random-integer-form (- size 2)))))       (2 `(isqrt (abs ,(make-random-integer-form (- size 2)))))
153    
      #-cmu  
154       (2       (2
155        (destructuring-bind (s1 s2)        (destructuring-bind (s1 s2)
156            (random-partition (- size 2) 2)            (random-partition (- size 2) 2)

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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