;;;; 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/jwood13/1a.lisp"
      "lib/pwojciec/1a.lisp"
      "lib/vrogers/1a.lisp"
      "lib/doc/1b.txt"
      "lib/doc/1c.txt"
      )