X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fnumbers.lisp;h=f5dee9aeb1ecd43489c440a7a22dbf61a0c2ab86;hb=dea14bb78b0fc90032373212912a16ed1f6a4a29;hp=3490df9a7ebdd69ece74eb1436d47605c7bee9ef;hpb=57b5128b148076b44a9f207b59b6b7702b5fcad9;p=jscl.git

diff --git a/src/numbers.lisp b/src/numbers.lisp
index 3490df9..f5dee9a 100644
--- a/src/numbers.lisp
+++ b/src/numbers.lisp
@@ -13,6 +13,8 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with JSCL.  If not, see <http://www.gnu.org/licenses/>.
 
+(/debug "loading numbers.lisp!")
+
 ;;;; Various numeric functions and constants
 
 (macrolet ((def (operator initial-value)
@@ -81,7 +83,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 >)