- (call-next-method)
- (flet ((add-action (action)
- (action-group-add-action action-group action)))
- (loop
- as (initarg value . rest) = initargs then rest
- do (case initarg
- (:action (add-action value))
- (:actions (mapc #'add-action value)))
- while rest)))