<div>Current:</div><div><br></div><div>(defun module-provide-system (module) </div><div>  (let ((*readtable* (copy-readtable nil)))</div><div>    (handler-case </div><div>        (load-system-file (string-downcase (string module)))</div>

<div>      (t (e) </div><div>        (unless (and (typep e 'error)</div><div>                     (search "Failed to find loadable system file"</div><div>                             (format nil "~A" e)))</div>

<div>          (format *error-output* "Failed to require  ~A because '~A'~%" </div><div>                  module e))</div><div>        nil))))</div><div><br></div><div>First, t is too strong - warns will kill it.</div>

<div>Second, why not let the debugger handle it if there is an error?</div><div><br></div><div>-Alan</div><div><br></div>