# Pastebin fMapmlfy
(defun for-each-except (exception procedure list)
  ;; Iterator which applies designated procedure to all items in a list
  ;; except a given one.
  (labels ((skip (items)
	   (cond
	     ((null items) 'done)
	     ((eq (car items) exception) (skip (cdr items)))
	     (t (procedure (car items))
		(skip (cdr items)))))))
  (skip list))