Loading uiop/filesystem.lisp +1 −0 Original line number Original line Diff line number Diff line Loading @@ -146,6 +146,7 @@ or the original (parsed) pathname if it is false (the default)." #+(or clozure digitool) '(:follow-links nil) #+(or clozure digitool) '(:follow-links nil) #+clisp '(:circle t :if-does-not-exist :ignore) #+clisp '(:circle t :if-does-not-exist :ignore) #+(or cmu scl) '(:follow-links nil :truenamep nil) #+(or cmu scl) '(:follow-links nil :truenamep nil) #+lispworks '(:link-transparency nil) #+sbcl (when (find-symbol* :resolve-symlinks '#:sb-impl nil) #+sbcl (when (find-symbol* :resolve-symlinks '#:sb-impl nil) '(:resolve-symlinks nil)))))) '(:resolve-symlinks nil)))))) Loading Loading
uiop/filesystem.lisp +1 −0 Original line number Original line Diff line number Diff line Loading @@ -146,6 +146,7 @@ or the original (parsed) pathname if it is false (the default)." #+(or clozure digitool) '(:follow-links nil) #+(or clozure digitool) '(:follow-links nil) #+clisp '(:circle t :if-does-not-exist :ignore) #+clisp '(:circle t :if-does-not-exist :ignore) #+(or cmu scl) '(:follow-links nil :truenamep nil) #+(or cmu scl) '(:follow-links nil :truenamep nil) #+lispworks '(:link-transparency nil) #+sbcl (when (find-symbol* :resolve-symlinks '#:sb-impl nil) #+sbcl (when (find-symbol* :resolve-symlinks '#:sb-impl nil) '(:resolve-symlinks nil)))))) '(:resolve-symlinks nil)))))) Loading