[Openmcl-cvs-notifications] r11207 - /trunk/source/lib/macros.lisp

[gb at clozure.com]

Author: gb
Date: Thu Oct 23 05:54:46 2008
New Revision: 11207

Log:
WITH-FILENAME-CSTRS: use PATHNAME-ENCODING-NAME (which may be NIL), unless
it's hardwired.





Modified:
    trunk/source/lib/macros.lisp

Modified: trunk/source/lib/macros.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/lib/macros.lisp (original)
+++ trunk/source/lib/macros.lisp Thu Oct 23 05:54:46 2008
@@ -1703,10 +1703,10 @@
                                              bindings) body))
 =

 (defmacro with-filename-cstrs (&rest rest)
-  `(,(case (target-os-name)
-      (:darwin 'with-utf-8-cstrs)
-      (:windows 'with-native-utf-16-cstrs)
-      (t 'with-cstrs)) , at rest))
+  (case (target-os-name)
+    (:darwin `(with-utf-8-cstrs , at rest))
+    (:windows `(with-native-utf-16-cstrs , at rest))
+    (t `(with-encoded-cstrs (pathname-encoding-name) , at rest))))
 =

 =

 (defun with-specs-aux (name spec-list original-body)