#+SBCL (DECLAIM (SB-EXT:MUFFLE-CONDITIONS CL:STYLE-WARNING ))
(defun make ()
  (labels 
      ((fname (f) (string-downcase (format nil "~a.lisp"  f)))
       (make0 (f) (format t ";;;; FILE: ~a~%" f) (load f))
       (make1 (f) (make0 (fname f))))

    (mapc #'make1
	  '(eg      ; unit tests
	    lib     ; generic stuff
	    config  ; configuration
	    macros  ; macros
	    code    ; main code
	    demos   ; stuff to show off
	    ))))
  
(make)