{"body":"(defun for-each-except (exception procedure list)\n  ;; Iterator which applies designated procedure to all items in a list\n  ;; except a given one.\n  (labels ((skip (items)\n\t   (cond\n\t     ((null items) 'done)\n\t     ((eq (car items) exception) (skip (cdr items)))\n\t     (t (procedure (car items))\n\t\t(skip (cdr items)))))))\n  (skip list))","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/fMapmlfy","modified":1566904107,"id":"fMapmlfy","size":336,"lines":10,"own_paste":false,"theme":"","date":1566904107}