;;;; -*- Mode: lisp -*-
;; rjf's compile of oct, should be obsolete when rjf learns to use defsystem
(defparameter files
 ' ((:file "qd-package")
   (:file "qd-rep" :depends-on ("qd-package"))
   #-cmu
   (:file "qd-dd" :depends-on ("qd-package"))
   (:file "qd"
	  :depends-on ("qd-rep"))
   (:file "qd-io"
	  :depends-on ("qd"))
   (:file "qd-const"
	  :depends-on ("qd-io"))
   (:file "qd-fun"
	  :depends-on ("qd" "qd-const"))
   (:file "qd-class"
	  :depends-on ("qd-fun"))
   (:file "qd-methods"
	  :depends-on ("qd-class"))
   (:file "qd-format"
	  :depends-on ("qd-methods"))
   (:file "qd-complex"
	  :depends-on ("qd-methods"))
   ))

(defun doit() 
  (mapcar #'(lambda(r)(delete-file (concatenate 'string (cadr r) ".fasl"))) files) ;; load so you can compile
  (mapcar #'(lambda(r)(load (cadr r))) files) ;; load so you can compile
  (mapcar #'(lambda(r)(compile-file (cadr r))) files) ;; compile
  (mapcar #'(lambda(r)(load (cadr r))) files) ;; load the compiled files
)