#xyzzy require で読み込まれたのに provide してない奴を探す

gistfile1.lisp

;;; require で読み込まれたのに provide してない奴を探す
;;; .xyzzy の先頭に書いといて起動すると、provide しなかった奴が記録されるので
;;; *scratch* で (print-required-but-not-provided) するとてきとーに表示
(defconstant +original-require+ #'require)

(defparameter *required-but-not-provided* nil)

(defun require (&rest args)
  (let ((modules-prev (copy-list *modules*))
        (module-name (car args)))
    (let ((result (apply +original-require+ args)))
      (unless (modulep module-name)
        (push (list module-name
                    (set-difference *modules* modules-prev)
                    (or (second args)
                        (find-load-path module-name)))
              *required-but-not-provided*))
      result)))

(defun print-required-but-not-provided ()
  (format t #1="~:{~A~30T~A~60T~A~%~}" '((:modele :added :filename)))
  (format t "------------------------------------------------------------------------------------------~%")
  (format t #1# *required-but-not-provided*)
  (values))