/[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.16 by pfdietz, Thu Oct 9 00:57:05 2003 UTC revision 1.17 by pfdietz, Fri Oct 10 03:19:59 2003 UTC
# Line 39  Line 39 
39    
40  (defvar *maximum-random-int-bits* 45)  (defvar *maximum-random-int-bits* 45)
41    
42  (defvar *compile-unoptimized-form* #-clisp t #+clisp nil)  (defvar *compile-unoptimized-form*
43      #-(or gcl clisp) t
44      #+(or gcl clisp) nil)
45    
46  (declaim (special *vars*))  (declaim (special *vars*))
47    
# Line 143  Line 145 
145          `(,op ,(make-random-integer-form (1- size)))))          `(,op ,(make-random-integer-form (1- size)))))
146       (2 `(isqrt (abs ,(make-random-integer-form (- size 2)))))       (2 `(isqrt (abs ,(make-random-integer-form (- size 2)))))
147    
148         #-cmu
149       (2       (2
150        (destructuring-bind (s1 s2)        (destructuring-bind (s1 s2)
151            (random-partition (- size 2) 2)            (random-partition (- size 2) 2)

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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