From 2cd537461ee17af9514b5be480c875e947c415a9 Mon Sep 17 00:00:00 2001 From: David Lichteblau Date: Fri, 23 Nov 2012 18:10:13 +0100 Subject: [PATCH] win32 pathname host: Switch to :lower canonical case --- src/code/target-pathname.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp index ed0c63d..c1deb5a 100644 --- a/src/code/target-pathname.lisp +++ b/src/code/target-pathname.lisp @@ -47,7 +47,7 @@ (unparse-enough #'unparse-win32-enough) (unparse-directory-separator "\\") (simplify-namestring #'simplify-win32-namestring) - (customary-case :upper)))) + (customary-case :lower)))) (defparameter *win32-host* (make-win32-host)) (defun make-win32-host-load-form (host) (declare (ignore host)) -- 1.7.10.4