外で電子コインを集めまくり、1UP することに命をかける配管工の二人組

(mapcan #'evenp '(0 1 2 3 4 5 6 7 8 9))

これじゃダメで:

(mapcan #'(lambda (x)
            (when (evenp x)
              `(,x)))
        '(0 1 2 3 4 5 6 7 8 9))

ってする必要がある。