Prims - Implement =

diff --git a/src/main/nvm/nvm.lisp b/src/main/nvm/nvm.lisp
index 287513e445265ab4a683bf56e14b592be520547a..413bd55021702c52e1faee6162f3e9158da89a46 100644 (file)
--- a/src/main/nvm/nvm.lisp
+++ b/src/main/nvm/nvm.lisp
@@ -210,6 +210,9 @@ DESCRIPTION:
 
 (defmethod dump-object ((o string)) o)
 
 
 (defmethod dump-object ((o string)) o)
 

+(defmethod dump-object ((o (eql t))) "true")
+(defmethod dump-object ((o (eql nil))) "false")
+

 (defun current-state ()
  "CURRENT-STATE => WORLD-STATE
 
 (defun current-state ()
  "CURRENT-STATE => WORLD-STATE
 

diff --git a/src/main/transpile.lisp b/src/main/transpile.lisp
index b50b4cdad102286c38f82ec447efd63fcc133d50..5f943678cc0588cdd6562f1188dc43059efdd43d 100644 (file)
--- a/src/main/transpile.lisp
+++ b/src/main/transpile.lisp
@@ -74,6 +74,7 @@ DESCRIPTION:
    *prims*))
 
 ; We count on the parser to handle arguemnts for us, when collating things.
    *prims*))
 
 ; We count on the parser to handle arguemnts for us, when collating things.

+(defprim := :reporter cl:equalp)

 (defprim :ask :command clnl-nvm:ask)
 (defprim :crt :command clnl-nvm:create-turtles)
 (defprim :fd :command clnl-nvm:forward)
 (defprim :ask :command clnl-nvm:ask)
 (defprim :crt :command clnl-nvm:create-turtles)
 (defprim :fd :command clnl-nvm:forward)

diff --git a/src/test/simpletests.lisp b/src/test/simpletests.lisp
index 406df86f3169ad2a2bdd7e77eea7f61283873860..3b401c1a78223abcbc48fc54ff00c03d8151dd45 100644 (file)
--- a/src/test/simpletests.lisp
+++ b/src/test/simpletests.lisp
@@ -29,3 +29,9 @@
 
 (defsimplereportertest "Random 1" "random-float 5" "4.244088516651127"
  "17D1BF7FF7BF2C7F3F5F7DD7CF67CFF2772CFFFC")
 
 (defsimplereportertest "Random 1" "random-float 5" "4.244088516651127"
  "17D1BF7FF7BF2C7F3F5F7DD7CF67CFF2772CFFFC")

+
+(defsimplereportertest "= 1" "5 = 5" "true"
+ "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
+
+(defsimplereportertest "= 2" "5 = 4" "false"
+ "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")