Changeset 11205 for trunk/source/level-1


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/linux-files.lisp

    r11176 r11205  
    5252  ;; encoding (though FreeBSD seems to be moving towards
    5353  ;; precomposed UTF-8.).
    54   ;; In any case, the use of %GET-CSTRING here is wrong ...
    5554  #-(or darwin-target windows-target)
    56   (%get-cstring pointer))
     55  (let* ((encoding-name (pathname-encoding-name)))
     56    (if encoding-name
     57      (get-encoded-cstring encoding-name pointer)
     58      (%get-cstring pointer))))
    5759
    5860(defun nanoseconds (n)
Note: See TracChangeset for help on using the changeset viewer.