Browse files

do not load an ignored project even if it has been installed.

  • Loading branch information...
1 parent 6d65247 commit d1b218dcaf2a9c1ad2521db46f9eb8bc970ee2bd @dochang committed Dec 2, 2010
Showing with 1 addition and 0 deletions.
  1. +1 −0 src/asdf.lisp
1 src/asdf.lisp
@@ -23,6 +23,7 @@ function into ASDF:*SYSTEM-DEFINITION-SEARCH-FUNCTIONS* manually."
(when system
(let* ((project (system-project system)))
(and project
+ (not (project-ignored-p project))
(or (ignore-errors (install-project project))
(project-installed-p project))
(probe-file (system-pathname system project))))))

0 comments on commit d1b218d

Please sign in to comment.