; Defines op as a redirector.  Its retval is new location.

(mac defopr (name parm . body)
  (w/uniq gs
    `(do (assert (redirector* ',name))
         (defop-raw ,name (,gs ,parm)
           ,@body))))