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