From: David Vázquez <davazp@gmail.com>
Date: Wed, 19 Jun 2013 20:27:52 +0000 (-0700)
Subject: Merge pull request #132 from kengruven/master
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=546ad39c2c44148207a1fde5b45957f2945ad1cf;hp=9375ef50cfc7a1804bb1bf3766ee79874e8ae2b6;p=jscl.git

Merge pull request #132 from kengruven/master

Fixed min/max
---

diff --git a/src/numbers.lisp b/src/numbers.lisp
index 3490df9..578d0b1 100644
--- a/src/numbers.lisp
+++ b/src/numbers.lisp
@@ -81,7 +81,7 @@
 (macrolet ((def (name comparison)
              `(defun ,name (x &rest xs)
                 (dolist (y xs) 
-                  (unless (,comparison x (car xs))
+                  (when (,comparison y x)
                     (setq x y)))
                 x)))
   (def max >)
diff --git a/tests/numbers.lisp b/tests/numbers.lisp
index 811d423..ae3ebb9 100644
--- a/tests/numbers.lisp
+++ b/tests/numbers.lisp
@@ -8,11 +8,13 @@
 (test (= (max 1)     1))
 (test (= (max 1 2 3) 3))
 (test (= (max 3 2 1) 3))
+(test (= (max 1 2 3 4 5) 5))
 
 ;;; MIN
 (test (= (min 1)     1))
 (test (= (min 1 2 3) 1))
 (test (= (min 3 2 1) 1))
+(test (= (min 9 3 8 7 6 3 3) 3))
 
 ;;; EVENP
 (test      (evenp  2))