From: Owen Rodley <Strigoides@gmail.com>
Date: Sat, 18 May 2013 13:51:08 +0000 (+1200)
Subject: DEFCOMPARISON for =
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1556fee6df0bac2542061c5d1beb065d35c341ca;p=jscl.git

DEFCOMPARISON for =
---

diff --git a/src/numbers.lisp b/src/numbers.lisp
index 8121b8e..060e657 100644
--- a/src/numbers.lisp
+++ b/src/numbers.lisp
@@ -16,7 +16,6 @@
 ;;;; Various numeric functions and constants
 
 ;; Basic functions
-(defun = (x y) (= x y))
 (defun * (x y) (* x y))
 (defun / (x y) (/ x y))
 (defun 1+ (x) (+ x 1))
@@ -58,6 +57,7 @@
 
 (defcomparison >)
 (defcomparison >=)
+(defcomparison =) 
 (defcomparison <)
 (defcomparison <=)