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 d3f96124c0a3745d39183616acb17556ee644140..b6e494c6fb439c1b558c73277d818bb79fb0d7b8 100644
(file)
--- a/
src/main/transpile.lisp
+++ b/
src/main/transpile.lisp
@@
-78,6
+78,8
@@
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 :* :reporter cl:*)
(defsimpleprim :- :reporter cl:-)
(defsimpleprim :+ :reporter cl:+)
(defsimpleprim :* :reporter cl:*)