Arc Forumnew | comments | leaders | submitlogin
1 point by icemaze 4241 days ago | link | parent

Here it is:

  (mac aif args
    (let ln (len args)
      (if (is ln 0) nil
          (is ln 1) (car args)
          `(let it ,(car args)
              (if it ,(cadr args) (aif ,@(cddr args)))))))


1 point by icemaze 4241 days ago | link

Er, ok, byronsalty's version works fine. Stupid me. :P

-----