diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp index fe997a7c7a7bdde96d3504d2365893e1bbd69cfc..60f0afc36cce7c13e669349a7f4303ea6a8e0476 100644 --- a/src/code/filesys.lisp +++ b/src/code/filesys.lisp @@ -1125,7 +1125,7 @@ optionally keeping some of the most recent old versions." (let ((*ignore-wildcards* t)) (mapcar #'(lambda (name) (let ((name (if (and check-for-subdirs - (eq (unix:unix-file-kind name) + (eq (unix:unix-file-kind name (not follow-links)) :directory)) (concatenate 'string name "/") name)))