Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Temporal fix for long directory name support

* src/code/win32-pathname.lisp (unparse-native-win32-namestring):
add "fudge factor" of 12 characters for long directory names.
  • Loading branch information...
commit c6787a1d290fba2bf90e9f13d692f67919c258ae 1 parent 42cc526
@akovalenko authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/code/win32-pathname.lisp
View
4 src/code/win32-pathname.lisp
@@ -316,7 +316,9 @@
(when absolutep
(let ((string (get-output-stream-string s)))
(return-from unparse-native-win32-namestring
- (cond ((< sb!win32::max_path (length string))
+ (cond ((< (- sb!win32::max_path 12) (length string))
+ ;; KLUDGE: account for additional length of 8.3 name to make
+ ;; directories always accessible
(coerce string 'simple-string))
((eq :unc device)
(replace
Please sign in to comment.
Something went wrong with that request. Please try again.