(defun make (&rest files)
   (handler-bind 
      ((style-warning #'muffle-warning))
  	(dolist (f files)
	  (load f))))

(defun make-tricks ()
  "timm tricks"
  (make  "lisp/lisp101/deftest" ; must be first
	 "lisp/lisp101/caution"
	 "lisp/lisp101/strings"
	 "lisp/lisp101/hash"
	 "lisp/lisp101/list"
	 "lisp/lisp101/random"
	 "lisp/lisp101/any" 
	 "lisp/lisp101/reading"
	 "lisp/lisp101/normal"
	 "lisp/lisp101/number"
	 "lisp/lisp101/lispfuns"
	 "lisp/lisp101/debug" 
	 ))

(defun make-tables ()
  "timm's table tricks"
  (make-tricks)
  (make  "lisp/table/structs"
	 "lisp/table/header"
	 "lisp/table/data"
	 "lisp/table/table"
	 "lisp/table/xindex" 
	 ))

(defun make-data ()
  (make-tricks)
  (make "data/albrecht.lisp"
	"data/china.lisp"
	"data/cocomo81.lisp"
	"data/cocomo81e.lisp"
	"data/cocomo81o.lisp"
	"data/cocomo81s.lisp"
	"data/desharnais-all.lisp"
	"data/desharnais-l1.lisp"
	"data/desharnais-l2.lisp"
	"data/desharnais-l3.lisp"
	"data/finnish.lisp"
	"data/kemerer.lisp"
	"data/maxwell.lisp"
	"data/nasa93-center-1.lisp"
	"data/nasa93-center-2.lisp"
	"data/nasa93-center-5.lisp"
	"data/nasa93.lisp"
	"data/sdr.lisp"
	"data/telecom.lisp"
	))

(defun make-sampler()
  "toe stuff"
  (make-tricks)
  (make-tables)
  (make-data)
  (make "lisp/distance"
	"lisp/median"
	"lisp/gac"
	"lisp/sampler"
	"lisp/csv"
	"lisp/line"
	"lisp/utils"
	))

(make-sampler)