#|=head1 Loading files

C<(make flag file1 file2...)> loads a set of files 
and caches the names of those files. If C<flag> is nil then
certain tedious SBCL errors are suppressed.

When called with no arguments, e.g. C<(make)>, the function
reloads the cached file names (which is handy for quickly rebuilding
the sytem.

|#

(let (files)
  (defun make  (&optional verbosep &rest new )
    (labels ((make0 (x)
	       (format t ";~a~%" x) (load x)))
      (if new
	  (setf files new))
      (if verbosep
	  (mapcar #'make0 files)
	  (handler-bind ; SBCL-specific
	      ((style-warning #'muffle-warning)) 
	    (mapcar #'make0 files)))
      (terpri)
      t))
 )