SearchYC.com

This works:

    (eval (list 'oaf 1 2))
    2

    (eval (list oaf 1 2))
    Error: "Bad object in expression #3(tagged mac #)"

    (map "foobar" (list 0 2 4))
    (#\f #\o #\a)

For example, it should keep working if the 'a' in (+ . a) is replaced with its actual value. In that case, we get:

    (+ . '(1 2 3))

    (+ . (quote (1 2 3))

    (+ quote (1 2 3))

    (apply + '(1 2 3))

    (mappend [awhen (pfft _) (list (yo-mama (cons _ it)))] whatever)

    (mac myfn body
        `(fn ,(cons 'frst 'rest) ,@body))

   (loop for y in whatever
         for py = (pfft y)
         when py collect (yo-mama (cons y py)))

   (rev:accum collect
      (each y whatever
         (awhen (pfft y) (collect (yo-mama (cons y it))))))