; disable an irritating SBCL flag
#+SBCL (DECLAIM (SB-EXT:MUFFLE-CONDITIONS CL:STYLE-WARNING))

(defun make  () (make1 "main"))
(defun make! () (make1 "main" t))

(defun make1  (sys &optional forcep)  
  (asdf:operate 'asdf:load-source-op sys :force forcep))

(make)