Prims - Implement =
authorFrank Duncan <frank@kank.net>
Sat, 23 Apr 2016 23:33:08 +0000 (18:33 -0500)
committerFrank Duncan <frank@kank.net>
Sat, 23 Apr 2016 23:33:08 +0000 (18:33 -0500)
src/main/nvm/nvm.lisp
src/main/transpile.lisp
src/test/simpletests.lisp

index 287513e445265ab4a683bf56e14b592be520547a..413bd55021702c52e1faee6162f3e9158da89a46 100644 (file)
@@ -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
 
index b50b4cdad102286c38f82ec447efd63fcc133d50..5f943678cc0588cdd6562f1188dc43059efdd43d 100644 (file)
@@ -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)
index 406df86f3169ad2a2bdd7e77eea7f61283873860..3b401c1a78223abcbc48fc54ff00c03d8151dd45 100644 (file)
@@ -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")