[Openmcl-cvs-notifications] r13568 - /trunk/source/level-1/l1-utils.lisp

[gb at clozure.com]

Author: gb
Date: Tue Mar 30 00:12:47 2010
New Revision: 13568

Log:
Set #+windows-target *PATHNAME-ESCAPE-CHARACTER* to #\> instead of
#\', since according to
<http://msdn.microsoft.com/en-us/library/aa368590(VS.85).aspx>,
#\> is not a legal filename constituent and #\' is.  (Of course, that page
also claims that #\\ is a forward slash and that #\/ is a backslash,
so go figure.)

Modified:
    trunk/source/level-1/l1-utils.lisp

Modified: trunk/source/level-1/l1-utils.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-utils.lisp (original)
+++ trunk/source/level-1/l1-utils.lisp Tue Mar 30 00:12:47 2010
@@ -831,7 +831,7 @@
   (assoc str alist :test #'string-equal))
 =

 (defstatic *pathname-escape-character*
-  #+windows-target #\'
+  #+windows-target #\>
   #-windows-target #\\
   "Not CL.  A Coral addition for compatibility between CL spec and the she=
ll.")
 =