(eval-when (:compile-toplevel :load-toplevel :execute) 
  (defvar *cleaners* '())) 
 
(defmacro with-cleaners ((&rest resources) &body body) 
  "Each resource is of form (name value)" 
  (setf *cleaners* '()) 
  `(let ,resources 
     (macrolet ((add-cleaner (&body cleaner-body) 
                  (push cleaner-body *cleaners*) 
                  nil) 
                (invoke-cleaners () 
                  `(progn ,@(reduce #'nconc *cleaners*) 
                          ,(setf *cleaners* '())))) 
       (unwind-protect 
         (progn ,@body) 
         (invoke-cleaners)))))