Changeset 13114

Timestamp:

Oct 29, 2009, 1:47:19 AM (12 years ago)

Author:

rme

Message:

SYSTEM-NAMESTRING: don't call TRUENAME in the #+openmcl case.

OPEN-FILE-ARGUMENTS: explicity specify :latin1 as external format for #+ccl.

(from Wade Humeniuk)

File:

• trunk/source/tools/asdf-install/port.lisp (modified) (2 diffs)

trunk/source/tools/asdf-install/port.lisp

@@ -35 +35 @@
 (defun system-namestring (pathname)
   #+:openmcl
-  (ccl:native-translated-namestring (truename pathname))
+  (ccl:native-translated-namestring pathname)
   #-:openmcl
   (namestring (truename pathname)))
@@ -309 +309 @@
 (defun open-file-arguments ()
   (append 
-   #+sbcl
+   #+(or sbcl ccl)
    '(:external-format :latin1)
    #+:scl