diff options
| author | Javier Olaechea <pirata@gmail.com> | 2018-05-24 22:54:13 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2018-05-24 22:54:13 -0500 |
| commit | 0e826e8dc3ec344355a70b2070d6c36fa1a5ae05 (patch) | |
| tree | bf8b746850aef4b027a20b7f62ed0cb4144c5393 | |
| parent | 2fc489b4ebd6211d55de4d8836a5e25c9602c3e8 (diff) | |
| parent | 8f534220da108fde045fb2f8b858c49c1562bcc1 (diff) | |
Merge pull request #460 from tpine/fix-asd-file-type-check18.05
Fix checking if a directory contains a .asd file when loading modules
| -rw-r--r-- | module.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module.lisp b/module.lisp index 9cfc367..7150871 100644 --- a/module.lisp +++ b/module.lisp @@ -43,8 +43,8 @@ path which contain any files ending in .asd" (map 'list #'directory-namestring (remove-if-not (lambda (file) - (search "asd" - (file-namestring file))) + (equal "asd" + (nth-value 1 (uiop:split-name-type (file-namestring file))))) (list-directory-recursive path t)))) (defvar *load-path* nil |