load.lisp Unix DownloadWindows Download
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File		     - load.lisp
;; Description	     - Loader for solution tester
;; Author	     - Gail Anderson (ga at lostwithiel)
;; Created On	     - Mon Jul  9 22:18:02 2001
;; Last Modified On  - Mon Jul  9 22:18:12 2001
;; Last Modified By  - Gail Anderson (ga at lostwithiel)
;; Update Count	     - 2
;; Status	     - Unknown
;; 
;; $Id: load.lisp,v 1.2 2003/01/23 09:04:20 colin Exp $
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;

(in-package :cl-user)

(defparameter *files* '("htout" "pkg" 
			"defs-n-paths" "defex-user" 
			"add2-solution" "hello-world-solution"
			"tests" "run-tests" ))

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