Ticket #175: my-trace

Debugger entered--Lisp error: (error "Lisp nesting exceeds `max-lisp-eval-depth'")
  bq-process-2((\,@ body))
  bq-process-2(((\,@ body)))
  bq-process-2(((\, buf) (\,@ body)))
  bq-process-2((with-current-buffer (\, buf) (\,@ body)))
  bq-process-2(((with-current-buffer (\, buf) (\,@ body))))
  bq-process-2(((buffer-live-p (\, buf)) (with-current-buffer (\, buf) (\,@ body))))
  bq-process-2((if (buffer-live-p (\, buf)) (with-current-buffer (\, buf) (\,@ body))))
  bq-process((if (buffer-live-p (\, buf)) (with-current-buffer (\, buf) (\,@ body))))
  #<compiled-function (template) "...(4)" [template bq-process] 2 596599>((if (buffer-live-p (\, buf)) (with-current-buffer (\, buf) (\,@ body))))
  (backquote (if (buffer-live-p ...) (with-current-buffer ... ...)))
  (lambda (buf &rest body) "As with-current-buffer if BUF exists and is live, otherwise nothing." (backquote (if ... ...)))(buf (bury-buffer (current-buffer)))
  (proof-with-current-buffer-if-exists buf (bury-buffer (current-buffer)))
  (while --dolist-temp--98267 (setq buf (car --dolist-temp--98267)) (proof-with-current-buffer-if-exists buf (bury-buffer ...)) (setq --dolist-temp--98267 (cdr --dolist-temp--98267)))
  (let ((--dolist-temp--98267 ...) buf) (while --dolist-temp--98267 (setq buf ...) (proof-with-current-buffer-if-exists buf ...) (setq --dolist-temp--98267 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98267 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98267 ... ... ...) nil))
  (dolist (buf (list proof-goals-buffer proof-response-buffer proof-trace-buffer)) (proof-with-current-buffer-if-exists buf (bury-buffer ...)))
  (proof-map-buffers (list proof-goals-buffer proof-response-buffer proof-trace-buffer) (bury-buffer (current-buffer)))
  proof-script-kill-buffer-fn()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98266 (setq buf (car --dolist-temp--98266)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98266 (cdr --dolist-temp--98266)))
  (let ((--dolist-temp--98266 ...) buf) (while --dolist-temp--98266 (setq buf ...) (if ... ...) (setq --dolist-temp--98266 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98266 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98266 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98263 (setq buf (car --dolist-temp--98263)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98263 (cdr --dolist-temp--98263)))
  (let ((--dolist-temp--98263 ...) buf) (while --dolist-temp--98263 (setq buf ...) (if ... ...) (setq --dolist-temp--98263 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98263 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98263 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98260 (setq buf (car --dolist-temp--98260)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98260 (cdr --dolist-temp--98260)))
  (let ((--dolist-temp--98260 ...) buf) (while --dolist-temp--98260 (setq buf ...) (if ... ...) (setq --dolist-temp--98260 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98260 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98260 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98257 (setq buf (car --dolist-temp--98257)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98257 (cdr --dolist-temp--98257)))
  (let ((--dolist-temp--98257 ...) buf) (while --dolist-temp--98257 (setq buf ...) (if ... ...) (setq --dolist-temp--98257 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98257 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98257 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98254 (setq buf (car --dolist-temp--98254)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98254 (cdr --dolist-temp--98254)))
  (let ((--dolist-temp--98254 ...) buf) (while --dolist-temp--98254 (setq buf ...) (if ... ...) (setq --dolist-temp--98254 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98254 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98254 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98251 (setq buf (car --dolist-temp--98251)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98251 (cdr --dolist-temp--98251)))
  (let ((--dolist-temp--98251 ...) buf) (while --dolist-temp--98251 (setq buf ...) (if ... ...) (setq --dolist-temp--98251 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98251 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98251 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98248 (setq buf (car --dolist-temp--98248)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98248 (cdr --dolist-temp--98248)))
  (let ((--dolist-temp--98248 ...) buf) (while --dolist-temp--98248 (setq buf ...) (if ... ...) (setq --dolist-temp--98248 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98248 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98248 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98245 (setq buf (car --dolist-temp--98245)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98245 (cdr --dolist-temp--98245)))
  (let ((--dolist-temp--98245 ...) buf) (while --dolist-temp--98245 (setq buf ...) (if ... ...) (setq --dolist-temp--98245 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98245 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98245 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98242 (setq buf (car --dolist-temp--98242)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98242 (cdr --dolist-temp--98242)))
  (let ((--dolist-temp--98242 ...) buf) (while --dolist-temp--98242 (setq buf ...) (if ... ...) (setq --dolist-temp--98242 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98242 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98242 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98239 (setq buf (car --dolist-temp--98239)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98239 (cdr --dolist-temp--98239)))
  (let ((--dolist-temp--98239 ...) buf) (while --dolist-temp--98239 (setq buf ...) (if ... ...) (setq --dolist-temp--98239 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98239 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98239 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98236 (setq buf (car --dolist-temp--98236)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98236 (cdr --dolist-temp--98236)))
  (let ((--dolist-temp--98236 ...) buf) (while --dolist-temp--98236 (setq buf ...) (if ... ...) (setq --dolist-temp--98236 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98236 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98236 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98233 (setq buf (car --dolist-temp--98233)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98233 (cdr --dolist-temp--98233)))
  (let ((--dolist-temp--98233 ...) buf) (while --dolist-temp--98233 (setq buf ...) (if ... ...) (setq --dolist-temp--98233 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98233 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98233 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98230 (setq buf (car --dolist-temp--98230)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98230 (cdr --dolist-temp--98230)))
  (let ((--dolist-temp--98230 ...) buf) (while --dolist-temp--98230 (setq buf ...) (if ... ...) (setq --dolist-temp--98230 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98230 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98230 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98227 (setq buf (car --dolist-temp--98227)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98227 (cdr --dolist-temp--98227)))
  (let ((--dolist-temp--98227 ...) buf) (while --dolist-temp--98227 (setq buf ...) (if ... ...) (setq --dolist-temp--98227 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98227 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98227 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98224 (setq buf (car --dolist-temp--98224)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98224 (cdr --dolist-temp--98224)))
  (let ((--dolist-temp--98224 ...) buf) (while --dolist-temp--98224 (setq buf ...) (if ... ...) (setq --dolist-temp--98224 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98224 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98224 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98221 (setq buf (car --dolist-temp--98221)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98221 (cdr --dolist-temp--98221)))
  (let ((--dolist-temp--98221 ...) buf) (while --dolist-temp--98221 (setq buf ...) (if ... ...) (setq --dolist-temp--98221 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98221 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98221 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98218 (setq buf (car --dolist-temp--98218)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98218 (cdr --dolist-temp--98218)))
  (let ((--dolist-temp--98218 ...) buf) (while --dolist-temp--98218 (setq buf ...) (if ... ...) (setq --dolist-temp--98218 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98218 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98218 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98215 (setq buf (car --dolist-temp--98215)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98215 (cdr --dolist-temp--98215)))
  (let ((--dolist-temp--98215 ...) buf) (while --dolist-temp--98215 (setq buf ...) (if ... ...) (setq --dolist-temp--98215 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98215 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98215 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98212 (setq buf (car --dolist-temp--98212)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98212 (cdr --dolist-temp--98212)))
  (let ((--dolist-temp--98212 ...) buf) (while --dolist-temp--98212 (setq buf ...) (if ... ...) (setq --dolist-temp--98212 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98212 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98212 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98209 (setq buf (car --dolist-temp--98209)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98209 (cdr --dolist-temp--98209)))
  (let ((--dolist-temp--98209 ...) buf) (while --dolist-temp--98209 (setq buf ...) (if ... ...) (setq --dolist-temp--98209 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98209 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98209 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98206 (setq buf (car --dolist-temp--98206)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98206 (cdr --dolist-temp--98206)))
  (let ((--dolist-temp--98206 ...) buf) (while --dolist-temp--98206 (setq buf ...) (if ... ...) (setq --dolist-temp--98206 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98206 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98206 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98203 (setq buf (car --dolist-temp--98203)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98203 (cdr --dolist-temp--98203)))
  (let ((--dolist-temp--98203 ...) buf) (while --dolist-temp--98203 (setq buf ...) (if ... ...) (setq --dolist-temp--98203 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98203 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98203 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98200 (setq buf (car --dolist-temp--98200)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98200 (cdr --dolist-temp--98200)))
  (let ((--dolist-temp--98200 ...) buf) (while --dolist-temp--98200 (setq buf ...) (if ... ...) (setq --dolist-temp--98200 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98200 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98200 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98197 (setq buf (car --dolist-temp--98197)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98197 (cdr --dolist-temp--98197)))
  (let ((--dolist-temp--98197 ...) buf) (while --dolist-temp--98197 (setq buf ...) (if ... ...) (setq --dolist-temp--98197 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98197 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98197 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98194 (setq buf (car --dolist-temp--98194)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98194 (cdr --dolist-temp--98194)))
  (let ((--dolist-temp--98194 ...) buf) (while --dolist-temp--98194 (setq buf ...) (if ... ...) (setq --dolist-temp--98194 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98194 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98194 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98191 (setq buf (car --dolist-temp--98191)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98191 (cdr --dolist-temp--98191)))
  (let ((--dolist-temp--98191 ...) buf) (while --dolist-temp--98191 (setq buf ...) (if ... ...) (setq --dolist-temp--98191 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98191 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98191 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98188 (setq buf (car --dolist-temp--98188)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98188 (cdr --dolist-temp--98188)))
  (let ((--dolist-temp--98188 ...) buf) (while --dolist-temp--98188 (setq buf ...) (if ... ...) (setq --dolist-temp--98188 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98188 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98188 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98185 (setq buf (car --dolist-temp--98185)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98185 (cdr --dolist-temp--98185)))
  (let ((--dolist-temp--98185 ...) buf) (while --dolist-temp--98185 (setq buf ...) (if ... ...) (setq --dolist-temp--98185 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98185 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98185 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98182 (setq buf (car --dolist-temp--98182)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98182 (cdr --dolist-temp--98182)))
  (let ((--dolist-temp--98182 ...) buf) (while --dolist-temp--98182 (setq buf ...) (if ... ...) (setq --dolist-temp--98182 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98182 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98182 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98179 (setq buf (car --dolist-temp--98179)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98179 (cdr --dolist-temp--98179)))
  (let ((--dolist-temp--98179 ...) buf) (while --dolist-temp--98179 (setq buf ...) (if ... ...) (setq --dolist-temp--98179 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98179 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98179 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98176 (setq buf (car --dolist-temp--98176)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98176 (cdr --dolist-temp--98176)))
  (let ((--dolist-temp--98176 ...) buf) (while --dolist-temp--98176 (setq buf ...) (if ... ...) (setq --dolist-temp--98176 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98176 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98176 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98173 (setq buf (car --dolist-temp--98173)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98173 (cdr --dolist-temp--98173)))
  (let ((--dolist-temp--98173 ...) buf) (while --dolist-temp--98173 (setq buf ...) (if ... ...) (setq --dolist-temp--98173 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98173 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98173 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98170 (setq buf (car --dolist-temp--98170)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98170 (cdr --dolist-temp--98170)))
  (let ((--dolist-temp--98170 ...) buf) (while --dolist-temp--98170 (setq buf ...) (if ... ...) (setq --dolist-temp--98170 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98170 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98170 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98167 (setq buf (car --dolist-temp--98167)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98167 (cdr --dolist-temp--98167)))
  (let ((--dolist-temp--98167 ...) buf) (while --dolist-temp--98167 (setq buf ...) (if ... ...) (setq --dolist-temp--98167 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98167 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98167 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98164 (setq buf (car --dolist-temp--98164)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98164 (cdr --dolist-temp--98164)))
  (let ((--dolist-temp--98164 ...) buf) (while --dolist-temp--98164 (setq buf ...) (if ... ...) (setq --dolist-temp--98164 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98164 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98164 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98161 (setq buf (car --dolist-temp--98161)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98161 (cdr --dolist-temp--98161)))
  (let ((--dolist-temp--98161 ...) buf) (while --dolist-temp--98161 (setq buf ...) (if ... ...) (setq --dolist-temp--98161 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98161 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98161 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98158 (setq buf (car --dolist-temp--98158)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98158 (cdr --dolist-temp--98158)))
  (let ((--dolist-temp--98158 ...) buf) (while --dolist-temp--98158 (setq buf ...) (if ... ...) (setq --dolist-temp--98158 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98158 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98158 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98155 (setq buf (car --dolist-temp--98155)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98155 (cdr --dolist-temp--98155)))
  (let ((--dolist-temp--98155 ...) buf) (while --dolist-temp--98155 (setq buf ...) (if ... ...) (setq --dolist-temp--98155 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98155 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98155 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98152 (setq buf (car --dolist-temp--98152)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98152 (cdr --dolist-temp--98152)))
  (let ((--dolist-temp--98152 ...) buf) (while --dolist-temp--98152 (setq buf ...) (if ... ...) (setq --dolist-temp--98152 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98152 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98152 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98149 (setq buf (car --dolist-temp--98149)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98149 (cdr --dolist-temp--98149)))
  (let ((--dolist-temp--98149 ...) buf) (while --dolist-temp--98149 (setq buf ...) (if ... ...) (setq --dolist-temp--98149 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98149 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98149 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98146 (setq buf (car --dolist-temp--98146)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98146 (cdr --dolist-temp--98146)))
  (let ((--dolist-temp--98146 ...) buf) (while --dolist-temp--98146 (setq buf ...) (if ... ...) (setq --dolist-temp--98146 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98146 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98146 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98143 (setq buf (car --dolist-temp--98143)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98143 (cdr --dolist-temp--98143)))
  (let ((--dolist-temp--98143 ...) buf) (while --dolist-temp--98143 (setq buf ...) (if ... ...) (setq --dolist-temp--98143 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98143 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98143 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98140 (setq buf (car --dolist-temp--98140)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98140 (cdr --dolist-temp--98140)))
  (let ((--dolist-temp--98140 ...) buf) (while --dolist-temp--98140 (setq buf ...) (if ... ...) (setq --dolist-temp--98140 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98140 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98140 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98137 (setq buf (car --dolist-temp--98137)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98137 (cdr --dolist-temp--98137)))
  (let ((--dolist-temp--98137 ...) buf) (while --dolist-temp--98137 (setq buf ...) (if ... ...) (setq --dolist-temp--98137 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98137 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98137 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98134 (setq buf (car --dolist-temp--98134)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98134 (cdr --dolist-temp--98134)))
  (let ((--dolist-temp--98134 ...) buf) (while --dolist-temp--98134 (setq buf ...) (if ... ...) (setq --dolist-temp--98134 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98134 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98134 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98131 (setq buf (car --dolist-temp--98131)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98131 (cdr --dolist-temp--98131)))
  (let ((--dolist-temp--98131 ...) buf) (while --dolist-temp--98131 (setq buf ...) (if ... ...) (setq --dolist-temp--98131 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98131 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98131 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98128 (setq buf (car --dolist-temp--98128)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98128 (cdr --dolist-temp--98128)))
  (let ((--dolist-temp--98128 ...) buf) (while --dolist-temp--98128 (setq buf ...) (if ... ...) (setq --dolist-temp--98128 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98128 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98128 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98125 (setq buf (car --dolist-temp--98125)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98125 (cdr --dolist-temp--98125)))
  (let ((--dolist-temp--98125 ...) buf) (while --dolist-temp--98125 (setq buf ...) (if ... ...) (setq --dolist-temp--98125 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98125 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98125 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98122 (setq buf (car --dolist-temp--98122)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98122 (cdr --dolist-temp--98122)))
  (let ((--dolist-temp--98122 ...) buf) (while --dolist-temp--98122 (setq buf ...) (if ... ...) (setq --dolist-temp--98122 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98122 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98122 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98119 (setq buf (car --dolist-temp--98119)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98119 (cdr --dolist-temp--98119)))
  (let ((--dolist-temp--98119 ...) buf) (while --dolist-temp--98119 (setq buf ...) (if ... ...) (setq --dolist-temp--98119 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98119 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98119 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98116 (setq buf (car --dolist-temp--98116)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98116 (cdr --dolist-temp--98116)))
  (let ((--dolist-temp--98116 ...) buf) (while --dolist-temp--98116 (setq buf ...) (if ... ...) (setq --dolist-temp--98116 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98116 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98116 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98113 (setq buf (car --dolist-temp--98113)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98113 (cdr --dolist-temp--98113)))
  (let ((--dolist-temp--98113 ...) buf) (while --dolist-temp--98113 (setq buf ...) (if ... ...) (setq --dolist-temp--98113 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98113 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98113 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98110 (setq buf (car --dolist-temp--98110)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98110 (cdr --dolist-temp--98110)))
  (let ((--dolist-temp--98110 ...) buf) (while --dolist-temp--98110 (setq buf ...) (if ... ...) (setq --dolist-temp--98110 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98110 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98110 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98107 (setq buf (car --dolist-temp--98107)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98107 (cdr --dolist-temp--98107)))
  (let ((--dolist-temp--98107 ...) buf) (while --dolist-temp--98107 (setq buf ...) (if ... ...) (setq --dolist-temp--98107 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98107 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98107 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98104 (setq buf (car --dolist-temp--98104)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98104 (cdr --dolist-temp--98104)))
  (let ((--dolist-temp--98104 ...) buf) (while --dolist-temp--98104 (setq buf ...) (if ... ...) (setq --dolist-temp--98104 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98104 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98104 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98101 (setq buf (car --dolist-temp--98101)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98101 (cdr --dolist-temp--98101)))
  (let ((--dolist-temp--98101 ...) buf) (while --dolist-temp--98101 (setq buf ...) (if ... ...) (setq --dolist-temp--98101 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98101 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98101 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98098 (setq buf (car --dolist-temp--98098)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98098 (cdr --dolist-temp--98098)))
  (let ((--dolist-temp--98098 ...) buf) (while --dolist-temp--98098 (setq buf ...) (if ... ...) (setq --dolist-temp--98098 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98098 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98098 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98095 (setq buf (car --dolist-temp--98095)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98095 (cdr --dolist-temp--98095)))
  (let ((--dolist-temp--98095 ...) buf) (while --dolist-temp--98095 (setq buf ...) (if ... ...) (setq --dolist-temp--98095 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98095 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98095 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98092 (setq buf (car --dolist-temp--98092)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98092 (cdr --dolist-temp--98092)))
  (let ((--dolist-temp--98092 ...) buf) (while --dolist-temp--98092 (setq buf ...) (if ... ...) (setq --dolist-temp--98092 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98092 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98092 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98089 (setq buf (car --dolist-temp--98089)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98089 (cdr --dolist-temp--98089)))
  (let ((--dolist-temp--98089 ...) buf) (while --dolist-temp--98089 (setq buf ...) (if ... ...) (setq --dolist-temp--98089 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98089 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98089 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98086 (setq buf (car --dolist-temp--98086)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98086 (cdr --dolist-temp--98086)))
  (let ((--dolist-temp--98086 ...) buf) (while --dolist-temp--98086 (setq buf ...) (if ... ...) (setq --dolist-temp--98086 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98086 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98086 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98083 (setq buf (car --dolist-temp--98083)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98083 (cdr --dolist-temp--98083)))
  (let ((--dolist-temp--98083 ...) buf) (while --dolist-temp--98083 (setq buf ...) (if ... ...) (setq --dolist-temp--98083 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98083 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98083 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98080 (setq buf (car --dolist-temp--98080)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98080 (cdr --dolist-temp--98080)))
  (let ((--dolist-temp--98080 ...) buf) (while --dolist-temp--98080 (setq buf ...) (if ... ...) (setq --dolist-temp--98080 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98080 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98080 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98077 (setq buf (car --dolist-temp--98077)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98077 (cdr --dolist-temp--98077)))
  (let ((--dolist-temp--98077 ...) buf) (while --dolist-temp--98077 (setq buf ...) (if ... ...) (setq --dolist-temp--98077 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98077 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98077 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98074 (setq buf (car --dolist-temp--98074)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98074 (cdr --dolist-temp--98074)))
  (let ((--dolist-temp--98074 ...) buf) (while --dolist-temp--98074 (setq buf ...) (if ... ...) (setq --dolist-temp--98074 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98074 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98074 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98071 (setq buf (car --dolist-temp--98071)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98071 (cdr --dolist-temp--98071)))
  (let ((--dolist-temp--98071 ...) buf) (while --dolist-temp--98071 (setq buf ...) (if ... ...) (setq --dolist-temp--98071 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98071 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98071 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98068 (setq buf (car --dolist-temp--98068)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98068 (cdr --dolist-temp--98068)))
  (let ((--dolist-temp--98068 ...) buf) (while --dolist-temp--98068 (setq buf ...) (if ... ...) (setq --dolist-temp--98068 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98068 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98068 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98065 (setq buf (car --dolist-temp--98065)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98065 (cdr --dolist-temp--98065)))
  (let ((--dolist-temp--98065 ...) buf) (while --dolist-temp--98065 (setq buf ...) (if ... ...) (setq --dolist-temp--98065 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98065 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98065 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98062 (setq buf (car --dolist-temp--98062)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98062 (cdr --dolist-temp--98062)))
  (let ((--dolist-temp--98062 ...) buf) (while --dolist-temp--98062 (setq buf ...) (if ... ...) (setq --dolist-temp--98062 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98062 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98062 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98059 (setq buf (car --dolist-temp--98059)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98059 (cdr --dolist-temp--98059)))
  (let ((--dolist-temp--98059 ...) buf) (while --dolist-temp--98059 (setq buf ...) (if ... ...) (setq --dolist-temp--98059 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98059 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98059 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98056 (setq buf (car --dolist-temp--98056)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98056 (cdr --dolist-temp--98056)))
  (let ((--dolist-temp--98056 ...) buf) (while --dolist-temp--98056 (setq buf ...) (if ... ...) (setq --dolist-temp--98056 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98056 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98056 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98053 (setq buf (car --dolist-temp--98053)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98053 (cdr --dolist-temp--98053)))
  (let ((--dolist-temp--98053 ...) buf) (while --dolist-temp--98053 (setq buf ...) (if ... ...) (setq --dolist-temp--98053 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98053 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98053 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98050 (setq buf (car --dolist-temp--98050)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98050 (cdr --dolist-temp--98050)))
  (let ((--dolist-temp--98050 ...) buf) (while --dolist-temp--98050 (setq buf ...) (if ... ...) (setq --dolist-temp--98050 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98050 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98050 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98047 (setq buf (car --dolist-temp--98047)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98047 (cdr --dolist-temp--98047)))
  (let ((--dolist-temp--98047 ...) buf) (while --dolist-temp--98047 (setq buf ...) (if ... ...) (setq --dolist-temp--98047 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98047 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98047 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer "*goals*">)
  (progn (kill-buffer (symbol-value buf)) (set buf nil))
  (if (buffer-live-p (symbol-value buf)) (progn (kill-buffer ...) (set buf nil)))
  (while --dolist-temp--98044 (setq buf (car --dolist-temp--98044)) (if (buffer-live-p ...) (progn ... ...)) (setq --dolist-temp--98044 (cdr --dolist-temp--98044)))
  (let ((--dolist-temp--98044 ...) buf) (while --dolist-temp--98044 (setq buf ...) (if ... ...) (setq --dolist-temp--98044 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--98044 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... buf) (while --dolist-temp--98044 ... ... ...) nil))
  (dolist (buf (quote ...)) (if (buffer-live-p ...) (progn ... ...)))
  (let ((proof-shell-buffer nil)) (dolist (buf ...) (if ... ...)))
  (let (timeout-id) (sit-for 0) (if alive (progn ... ... ...)) (if (comint-check-proc ...) (proof-debug "Error in proof-shell-kill-function: process still lives!")) (if proc (set-process-sentinel proc nil)) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks (quote proof-shell-kill-function-hooks)) (if (and proof-multiple-frames-enable proof-shell-fiddle-frames) (proof-delete-other-frames)) (let (...) (dolist ... ...)) (message "%s exited." bufname))
  (let* ((alive ...) (proc ...) (bufname ...)) (message "%s, cleaning up and exiting..." bufname) (let (timeout-id) (sit-for 0) (if alive ...) (if ... ...) (if proc ...) (proof-script-remove-all-spans-and-deactivate) (proof-shell-clear-state) (run-hooks ...) (if ... ...) (let ... ...) (message "%s exited." bufname)))
  proof-shell-kill-function()
  kill-buffer(#<buffer " *temp*">)
  byte-code("..." [temp-buffer buffer-name kill-buffer] 2)
  replace-in-string("(subgoal_tac \"-=Èname1'. name1' (<-(B (f k, pi );· name1, pi · name2, pi · name3, pi · name4, pi · trm1, pi · trm2)\")" "[\n   ]+" " " t)-A
  paren-describe-match(1730 nil)
  paren-highlight()