Please sign in to comment.
* src/code/filesys.lisp (user-homedir-pathname): pass :short t on
win32, to get the 8.3-variant of the folder name (temporary kludge until LFNs are supported). * src/code/win32.lisp (get-short-file-name): new syscall binding (get-folder-namestring): support :short argument (get-folder-pathname): support and delegate :short argument
- Loading branch information...
Showing with 21 additions and 5 deletions.