;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;  make-all.lisp
;;;  Written by:  Shaul Markovitch
;;;  Last time modified: 2/4/96 08:00
;;;
;;; This file is used to compile and load the whole system.
;;; The file file-list.lisp contains a variable called 
;;; *macroscop-files*.  We first load this file and then 
;;; use the list of files to first load them, then compile them
;;; then load the compiled code.  If new files are added to the
;;; system their names should be added to file-list.lisp.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(load "file-list.lisp")

(loop for f in *macroscop-files* do
      (load (make-pathname :name f :type "lisp")))

(loop for f in *macroscop-files* do
      (compile-file f))

(loop for f in  *macroscop-files* do
      (load f))