- (progn
- ,@(do* ((item interrupt-list (cdr item))
- (intr (caar item) (caar item))
- (ifcn (cadar item) (cadar item))
- (forms NIL))
- ((null item) (nreverse forms))
- (when (symbolp intr)
- (setq intr (symbol-value intr)))
- (push `(push `(,,intr ,(enable-interrupt ,intr ,ifcn)) ,il)
- forms))
- ,@body)
- (dolist (,it (nreverse ,il))
- (enable-interrupt (car ,it) (cadr ,it)))))))
+ (progn
+ ,@(do* ((item interrupt-list (cdr item))
+ (intr (caar item) (caar item))
+ (ifcn (cadar item) (cadar item))
+ (forms NIL))
+ ((null item) (nreverse forms))
+ (when (symbolp intr)
+ (setq intr (symbol-value intr)))
+ (push `(push `(,,intr ,(enable-interrupt ,intr ,ifcn)) ,il)
+ forms))
+ ,@body)
+ (dolist (,it (nreverse ,il))
+ (enable-interrupt (car ,it) (cadr ,it)))))))