[Openmcl-cvs-notifications] r11205 - /trunk/source/level-1/linux-files.lisp

[gb at clozure.com]

Author: gb
Date: Thu Oct 23 05:53:10 2008
New Revision: 11205

Log:
GET-FOREIGN-NAMESTRING: observe PATHNAME-ENCODING-NAME, unless it's
hardwired.



Modified:
    trunk/source/level-1/linux-files.lisp

Modified: trunk/source/level-1/linux-files.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/linux-files.lisp (original)
+++ trunk/source/level-1/linux-files.lisp Thu Oct 23 05:53:10 2008
@@ -51,9 +51,11 @@
   ;; be encoded according to the current locale's character
   ;; encoding (though FreeBSD seems to be moving towards
   ;; precomposed UTF-8.).
-  ;; In any case, the use of %GET-CSTRING here is wrong ...
   #-(or darwin-target windows-target)
-  (%get-cstring pointer))
+  (let* ((encoding-name (pathname-encoding-name)))
+    (if encoding-name
+      (get-encoded-cstring encoding-name pointer)
+      (%get-cstring pointer))))
 =

 (defun nanoseconds (n)
   (unless (and (typep n 'fixnum)