;;;;
;;;; Patch index for Corman Lisp 3.01
;;;;

(in-package :ccl)
(export '(*patches-available*))
        
(defparameter *patches-available* nil)  ;; updated by DEFINE-PATCH
(defparameter *max-patch-level* 0)

(if
    (and 
        (boundp 'ccl::*auto-update-level*)
        (>= ccl::*auto-update-level* 1))
    (if (and (> *max-patch-level* *cormanlisp-patch-level*)
            (patch-upgrade-confirm *max-patch-level*))
        (let ((patches (reverse *patches-available*)))
            (dolist (p patches)
                (if (> (cormanlisp-patch-level p) *cormanlisp-patch-level*)
                    (install-patch p))))))