(defun load-all-asds (asds)
  (let ((deferred ())
        (loaded))
    (dolist (asd asds)
      (restart-case (push (load-asd asd)
                          loaded)
        (defer ()
          :report (lambda (s) (format s "defer ASD ~s" asd))
          (push asd deferred))
        (skip ()
          :report (lambda (s) (format s "skip ASD ~s" asd)))))
    (dolist (asd deferred loaded)
      (with-simple-restart (skip "skip asd ~s" asd)
        (push (load-asd asd)
              loaded)))))
(defun load-projects ()
  (load-all-asds (directory "PROJECTS:**;*.ASD")))