;;;; 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)
	       (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"
      "../lib/cat.lisp"
      "lib1.lisp"
      "bestof.lisp"
      "structs.lisp"
      "abcd.lisp"
      "data.lisp"
      "which2.lisp"
      "unsupDisc.lisp"
      "nway.lisp"
      )