(do-mapcar (item '(1 2 3 4 5 6 7 8 9))
               (cond
                 ((evenp item) (:skip))
                 ((= item 3) (:multi '(3 3 3)))
                 (t (+ item 10))))
=>
(11 3 3 3 15 17 19)