<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>