;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File		     - sysdcl.lisp
;; Description	     - system declaration for MLE1
;; Author	     - Tim Bradshaw (tfb at lostwithiel)
;; Created On	     - Mon Jan 31 19:52:43 2000
;; Last Modified On  - Mon Jun 25 12:56:47 2001
;; Last Modified By  - Gail Anderson (ga at lostwithiel)
;; Update Count	     - 15
;; Status	     - Unknown
;; 
;; $Id: sysdcl.lisp,v 1.1 2003/01/23 22:19:15 colin Exp $
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;; Copyright (C) 2000, 2001 Cley Limited
;;; 
;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2 of the License, or (at
;;; your option) any later version.
;;; 
;;; This program is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;; General Public License for more details.
;;; 
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
;;; USA.
;;; 
;;; You can contact Cley Limited by emailing cley@cley.com.


(cl:in-package :cl-user)

(defsystem :mle1
    (:pretty-name "MSc Lisp exercise 1"
     :default-pathname #.(load-time-value
     			  (or *load-truename*
			      *default-pathname-defaults*)))
  (:serial
   "pkg"
   "cleaner"
   "path-utils"
   "urlpath"
   "hashy-urlpath"
   "defex-user"
   #+clim "draw-urlpath-tree"
   ))
     

(defun make-mle-fasl (&key (destination
			    (concatenate 'string
			      "mle1"
			      ;; hack for build on AIAI
			      (if (featurep ':allegro-v5.0)
				  "-5_0")
			      (if (featurep ':clim)
				  "-clim"
				  "")
			      (if (featurep ':mswindows)
				  "-pc"
				  "")
			      ".fasl"))
			   (system ':mle1)
			   (clean-first-p nil))
  ;; ACL 5.0 bug apparently in -e it barfs...
  (let ((*print-readably* nil))
    (when clean-first-p
      (clean-system system))
    (compile-system system)
    (concatenate-system system destination)))