= and test

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 057cd7e..9efa0bc 100644 (file)
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -104,6 +104,7 @@ body can access to the local environment through the variable env"
          (ls-compile pred env)
          (ls-compile-sexps body env)))
 
+;;; aritmetic primitives
 (define-compilation + (x y)
   (concat "((" (ls-compile x env) ") + (" (ls-compile y env) "))"))
 
@@ -116,6 +117,9 @@ body can access to the local environment through the variable env"
 (define-compilation / (x y)
   (concat "((" (ls-compile x env) ") / (" (ls-compile y env) "))"))
 
+(define-compilation = (x y)
+  (concat "((" (ls-compile x env) ") == (" (ls-compile y env) "))"))
+
 
 (defparameter *env* '())
 (defparameter *env-fun* '())

diff --git a/test.lisp b/test.lisp
index 75ae829..286c7f1 100644 (file)
--- a/test.lisp
+++ b/test.lisp
@@ -4,3 +4,4 @@
 
 (debug "hola")
 (debug (if 2 (+ 2 1) 0))
+(debug (= (+ 2 1) (- 4 1)))