[armedbear-devel] over-agressive handler for module-provide-system

[Alan Ruttenberg]

Current:

(defun module-provide-system (module)
  (let ((*readtable* (copy-readtable nil)))
    (handler-case
        (load-system-file (string-downcase (string module)))
      (t (e)
        (unless (and (typep e 'error)
                     (search "Failed to find loadable system file"
                             (format nil "~A" e)))
          (format *error-output* "Failed to require  ~A because '~A'~%"
                  module e))
        nil))))

First, t is too strong - warns will kill it.
Second, why not let the debugger handle it if there is an error?

-Alan
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/armedbear-devel/attachments/20100511/2c870409/attachment.html>