projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Prims - Implement -, *, +, /
[clnl]
/
src
/
main
/
transpile.lisp
diff --git
a/src/main/transpile.lisp
b/src/main/transpile.lisp
index 59356e39f1daa7af52f48e31862581851ca0026e..d3f96124c0a3745d39183616acb17556ee644140 100644
(file)
--- a/
src/main/transpile.lisp
+++ b/
src/main/transpile.lisp
@@
-78,6
+78,10
@@
DESCRIPTION:
(defsimpleprim := :reporter cl:equalp)
(defprim :!= :reporter (lambda (a b) `(not (equalp ,a ,b))))
(defsimpleprim := :reporter cl:equalp)
(defprim :!= :reporter (lambda (a b) `(not (equalp ,a ,b))))
+(defsimpleprim :- :reporter cl:-)
+(defsimpleprim :+ :reporter cl:+)
+(defsimpleprim :* :reporter cl:*)
+(defsimpleprim :/ :reporter cl:/)
(defsimpleprim :ask :command clnl-nvm:ask)
(defsimpleprim :crt :command clnl-nvm:create-turtles)
(defsimpleprim :fd :command clnl-nvm:forward)
(defsimpleprim :ask :command clnl-nvm:ask)
(defsimpleprim :crt :command clnl-nvm:create-turtles)
(defsimpleprim :fd :command clnl-nvm:forward)