From 76f94e0a768f1f6f206c07eda27c690c42f1ddd4 Mon Sep 17 00:00:00 2001
From: Frank Duncan <frank@kank.net>
Date: Sat, 23 Apr 2016 18:33:08 -0500
Subject: [PATCH] Prims - Implement =

---
 src/main/nvm/nvm.lisp     | 3 +++
 src/main/transpile.lisp   | 1 +
 src/test/simpletests.lisp | 6 ++++++
 3 files changed, 10 insertions(+)

diff --git a/src/main/nvm/nvm.lisp b/src/main/nvm/nvm.lisp
index 287513e..413bd55 100644
--- 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 (eql t))) "true")
+(defmethod dump-object ((o (eql nil))) "false")
+
 (defun current-state ()
  "CURRENT-STATE => WORLD-STATE
 
diff --git a/src/main/transpile.lisp b/src/main/transpile.lisp
index b50b4cd..5f94367 100644
--- 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.
+(defprim := :reporter cl:equalp)
 (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 406df86..3b401c1 100644
--- a/src/test/simpletests.lisp
+++ b/src/test/simpletests.lisp
@@ -29,3 +29,9 @@
 
 (defsimplereportertest "Random 1" "random-float 5" "4.244088516651127"
  "17D1BF7FF7BF2C7F3F5F7DD7CF67CFF2772CFFFC")
+
+(defsimplereportertest "= 1" "5 = 5" "true"
+ "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
+
+(defsimplereportertest "= 2" "5 = 4" "false"
+ "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
-- 
2.25.1