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