+(defprim :if :command (lambda (pred a) `(when ,pred ,@(make-command-block-inline a))))
+(defprim :ifelse :command (lambda (pred a b)
+ `(if ,pred
+ ,@(make-command-block-inline a)
+ ,@(make-command-block-inline b))))
+
+(defprim-alias :if-else :ifelse)
+(defsimpleprim :lt :command clnl-nvm:turn-left)