"Run an action with a given args"\r
(unless (listp args) (setf args (list args)))\r
(setf *after* nil)\r
(let ((*action* action)\r
(*args* args)\r
(*noun* (first args))\r
"Run an action with a given args"\r
(unless (listp args) (setf args (list args)))\r
(setf *after* nil)\r
(let ((*action* action)\r
(*args* args)\r
(*noun* (first args))\r