;;;
;;; Corman Lisp 3.0 beta 1 patch 4
;;;
(in-package :ccl)

(defpatch 4 
    :install-func install-patch-4
    :uninstall-func uninstall-patch-4)

(let ((files '
    ("init.lisp"))
    (patch-level (cormanlisp-patch-level *patch*)))
    
    (defun install-patch-4 ()
        (let* ((backup-dir (ccl::local-patches-backup-directory patch-level))
               (ccl-dir *cormanlisp-directory*))
            (ensure-directories-exist backup-dir)        
            (dolist (f files)
                (let ((src (merge-pathnames f ccl-dir)))
                    (copy-file src
                        (merge-pathnames f backup-dir))
                    (ensure-writable-file src)
                    (sockets:get-http-file 
                        *patch-server*
                        (format nil "~A~D/~A" 
                            *patch-root-directory*
                            (cormanlisp-patch-level *patch*)
                            f)
                        (merge-pathnames f ccl-dir))))))            
    
    (defun uninstall-patch-4 ()
        (let* ((backup-dir (ccl::local-patches-backup-directory patch-level))
               (ccl-dir *cormanlisp-directory*))
            (dolist (f files)
                (let ((src (merge-pathnames f ccl-dir)))
                    (ensure-writable-file src)
                    (copy-file (merge-pathnames f backup-dir) src))))))