View gist:5823399
(defun mapcar@ (fun seq)
(let (result)
(loop for elem in (reverse seq)
for newelem = (funcall fun elem)
if (and (listp newelem)
(eq (car newelem) '@))
do (loop for newelem2 in (cdr newelem)
do (setq result (cons newelem2 result)))
else do (setq result (cons newelem result)))
result))
View gist:5090044

Wanna do a talk at Emacs Conf?

Add yourself to the list below and give a short blurb about the topic. Go wild!

Dave Nolan

about something interesting

Joe Bloggs