From: Frank Duncan Date: Sat, 23 Apr 2016 23:33:08 +0000 (-0500) Subject: Prims - Implement = X-Git-Tag: v0.1.0~49 X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=commitdiff_plain;ds=sidebyside;h=76f94e0;hp=fb6e383b5e0f5c86e4c79e0839dcbfee91b2e9fc;p=clnl Prims - Implement = --- 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")