From fd2f1ba1b1fe323a154663eebf7e1c700e054ef9 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 30 Mar 2004 02:34:53 +0000
Subject: [PATCH] Unconditionalized LCM for gcl.  This reexposes a bug to the
 random tester.

---
 ansi-tests/random-int-form.lsp | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp
index 06ba35bc..a8d08d3f 100644
--- a/ansi-tests/random-int-form.lsp
+++ b/ansi-tests/random-int-form.lsp
@@ -373,7 +373,7 @@
      (30
       (let* ((op (random-from-seq
 		  '(+ - *  logand min max gcd
-		      #-gcl lcm
+		      lcm
 		      #-:allegro
 		      logandc1
 		      logandc2 logeqv logior lognand lognor
@@ -403,8 +403,7 @@
      ;; n-ary ops
      (30
       (let* ((op (random-from-seq #(+ - * logand min max logior
-				      #-gcl lcm
-				      gcd logxor)))
+				      lcm gcd logxor)))
 	     (nargs (1+ (min (random 10) (random 10) (random 10))))
 	     (sizes (random-partition (1- size) nargs))
 	     (args (mapcar #'make-random-integer-form sizes)))
@@ -624,7 +623,7 @@
 	 (tags nil))
     (loop for i below num-forms
 	  do (loop for tag = (rcase
-			      #-acl (1 (random 8))
+			      #-allegro (1 (random 8))
 			      (1 (random-from-seq #(tag1 tag2 tag3 tag4
 							 tag5 tag6 tag7 tag8))))
 		   while (member tag tags)
-- 
GitLab