Skip to content
Snippets Groups Projects
Commit 17499591 authored by Elias Pipping's avatar Elias Pipping
Browse files

Fix: directory followed symlinks with :follow-links nil

parent 1b8f72ed
No related branches found
No related tags found
No related merge requests found
...@@ -1125,7 +1125,7 @@ optionally keeping some of the most recent old versions." ...@@ -1125,7 +1125,7 @@ optionally keeping some of the most recent old versions."
(let ((*ignore-wildcards* t)) (let ((*ignore-wildcards* t))
(mapcar #'(lambda (name) (mapcar #'(lambda (name)
(let ((name (if (and check-for-subdirs (let ((name (if (and check-for-subdirs
(eq (unix:unix-file-kind name) (eq (unix:unix-file-kind name (not follow-links))
:directory)) :directory))
(concatenate 'string name "/") (concatenate 'string name "/")
name))) name)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment