From 93c178ab8a6fd0daeb3e3e74573ff7ad51badf3b Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 10 Sep 2003 23:18:10 +0000
Subject: [PATCH] Random testing revealed (lcm 0 0) broke in sbcl.  Added tests
 for this and related cases.

---
 ansi-tests/lcm.lsp | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/ansi-tests/lcm.lsp b/ansi-tests/lcm.lsp
index 3d8b8018..dcc8159f 100644
--- a/ansi-tests/lcm.lsp
+++ b/ansi-tests/lcm.lsp
@@ -78,6 +78,23 @@
 	always (eql (apply #'lcm (make-list i :initial-element 1)) 1))
   t)
 
+(deftest lcm.9
+  (lcm 0 0)
+  0)
+
+(deftest lcm.10
+  (lcm 1 0 0)
+  0)
+
+(deftest lcm.11
+  (lcm 0 1 0)
+  0)
+
+(deftest lcm.12
+  (lcm 0 0 1)
+  0)
+
+
 (deftest lcm.order.1
   (let ((i 0) x y)
     (values
@@ -100,3 +117,5 @@
      (lcm (progn (incf i) 0))
      i))
   0 1)
+
+
-- 
GitLab