;; 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)
(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 >)