Changeset 11205

Timestamp:

Oct 23, 2008, 9:53:10 AM (11 years ago)

Author:

gb

Message:

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

File:

• trunk/source/level-1/linux-files.lisp (modified) (1 diff)

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

@@ -52 +52 @@
   ;; 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)