Arc Forumnew | comments | leaders | submitlogin
1 point by evanrmurphy 5472 days ago | link | parent

Here's a version that takes any number of arguments:

  (mac wipeop names
    `(do ,@(map (fn (_)
                  `(defop ,_ ()
                     (pr nil)))
                  names)))