Permalink
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...
1 parent 5730154 commit fb4b71acbf84c937ddccc9bb8c73cbd5baf91338 @akovalenko committed Oct 22, 2011
Showing with 3 additions and 1 deletion.
  1. +3 −1 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

0 comments on commit fb4b71a

Please sign in to comment.