Skip to content
Snippets Groups Projects
Commit fd2f1ba1 authored by pfdietz's avatar pfdietz
Browse files

Unconditionalized LCM for gcl. This reexposes a bug to the random tester.

parent b06c82ed
No related branches found
No related tags found
No related merge requests found
...@@ -373,7 +373,7 @@ ...@@ -373,7 +373,7 @@
(30 (30
(let* ((op (random-from-seq (let* ((op (random-from-seq
'(+ - * logand min max gcd '(+ - * logand min max gcd
#-gcl lcm lcm
#-:allegro #-:allegro
logandc1 logandc1
logandc2 logeqv logior lognand lognor logandc2 logeqv logior lognand lognor
...@@ -403,8 +403,7 @@ ...@@ -403,8 +403,7 @@
;; n-ary ops ;; n-ary ops
(30 (30
(let* ((op (random-from-seq #(+ - * logand min max logior (let* ((op (random-from-seq #(+ - * logand min max logior
#-gcl lcm lcm gcd logxor)))
gcd logxor)))
(nargs (1+ (min (random 10) (random 10) (random 10)))) (nargs (1+ (min (random 10) (random 10) (random 10))))
(sizes (random-partition (1- size) nargs)) (sizes (random-partition (1- size) nargs))
(args (mapcar #'make-random-integer-form sizes))) (args (mapcar #'make-random-integer-form sizes)))
...@@ -624,7 +623,7 @@ ...@@ -624,7 +623,7 @@
(tags nil)) (tags nil))
(loop for i below num-forms (loop for i below num-forms
do (loop for tag = (rcase do (loop for tag = (rcase
#-acl (1 (random 8)) #-allegro (1 (random 8))
(1 (random-from-seq #(tag1 tag2 tag3 tag4 (1 (random-from-seq #(tag1 tag2 tag3 tag4
tag5 tag6 tag7 tag8)))) tag5 tag6 tag7 tag8))))
while (member tag tags) while (member tag tags)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment