;;;;
;;;; Patch index for Corman Lisp 3.0
;;;;

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

(define-patch 1 "CormanLisp_3_0_patch_01.lisp")
(define-patch 2 "CormanLisp_3_0_patch_02.lisp")
(define-patch 3 "CormanLisp_3_0_patch_03.lisp")

(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))))))