;;;; config
;;;; start slime (M-x slime <RET>)
;;;; go to this buffer and load it  (C-c C-l <RET>)
(let (files)
  (defun make  (&optional verbosep &rest new )
    (labels ((make0 (x)
	       (format t "~a " x) (load x)))
      (format t "~&;")
      (if new
	  (setf files new))
      (if verbosep
	  (mapcar #'make0 files)
	  (handler-bind ; SBCL-specific
	      ((style-warning #'muffle-warning)) 
	    (mapcar #'make0 files)))
      (terpri)
      t))
 )


(make nil
      "lib/deftest.lisp"
      "lib/macros.lisp"
      "lib/lib.lisp"
      "lib/hash.lisp"
      "lib/bestof.lisp"
      "lib/random.lisp"
      "lib/profile.lisp"
      "lib/any.lisp"
      "lib/airandom.lisp"
      "lib1.lisp"
      "bestof.lisp"
      "structs.lisp"
      "abcd.lisp"
      "data.lisp"
      "hyperpipe.lisp"
      "EuclidDist.lisp"
      "BAMBOO.lisp"
      )