From 8dac885c2b1ceb740df5963202e9af8faaffc8cd Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Sun, 28 Jul 2013 10:26:07 -0500 Subject: [PATCH] UIOP:DIRECTORY* fixed to NOT follow symbolic links on LispWorks. That's the behaviour on other implementations, so in the spirit of true portability, behaviour on LispWorks needs to be adjusted. Patch from Piotr Kalinowski <pitkali@gmail.com> --- uiop/filesystem.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/uiop/filesystem.lisp b/uiop/filesystem.lisp index 6a3c3146..89bc42c6 100644 --- a/uiop/filesystem.lisp +++ b/uiop/filesystem.lisp @@ -146,6 +146,7 @@ or the original (parsed) pathname if it is false (the default)." #+(or clozure digitool) '(:follow-links nil) #+clisp '(:circle t :if-does-not-exist :ignore) #+(or cmu scl) '(:follow-links nil :truenamep nil) + #+lispworks '(:link-transparency nil) #+sbcl (when (find-symbol* :resolve-symlinks '#:sb-impl nil) '(:resolve-symlinks nil)))))) -- GitLab