load.lisp Unix DownloadWindows Download
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File		     - load.lisp
;; Description	     - temporary? load file
;; Author	     - Gail Anderson (ga at trebarwith)
;; Created On	     - Wed May 30 14:07:58 2001
;; Last Modified On  - Thu May 31 13:54:22 2001
;; Last Modified By  - Gail Anderson (ga at trebarwith)
;; Update Count	     - 8
;; Status	     - Unknown
;; 
;; $Id: load.lisp,v 1.2 2003/01/23 09:04:20 colin Exp $
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(in-package :cl-user)

(defparameter *files* '("htout" "exercises" "data"))

(defun clean (&optional (files *files*))
  (mapc #'(lambda (f)
	    (let ((path (make-pathname :name (concatenate 'string f ".fasl"))))
	      (if (probe-file path)
		  (progn
		    (format t ";;; Deleting file ~A~%" path)
		    (delete-file path)))))
	files))

(defun build (&optional (files *files*))
  (mapc #'(lambda (f)
	    (let ((root (make-pathname :name f))
		  (path (make-pathname :name (concatenate 'string f ".lisp"))))
	      (if (probe-file path)
		  (progn 
		    (compile-file root)
		    (load root)))))
	files))

(clean)
(build)