X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Ftranspile.lisp;h=b6e494c6fb439c1b558c73277d818bb79fb0d7b8;hp=d3f96124c0a3745d39183616acb17556ee644140;hb=aac9bb3;hpb=ede7df20b380cf9d943a8e004965c5712d7b8ce6 diff --git a/src/main/transpile.lisp b/src/main/transpile.lisp index d3f9612..b6e494c 100644 --- 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:<=) +(defsimpleprim :< :reporter cl:<) (defsimpleprim :- :reporter cl:-) (defsimpleprim :+ :reporter cl:+) (defsimpleprim :* :reporter cl:*)