Ignore:
Timestamp:
Sep 30, 2009, 5:28:09 AM (10 years ago)
Author:
rme
Message:

Conditionalize SYSTEM-NAMESTRING for Clozure CL. Use SYSTEM-NAMESTRING
instead of NAMESTRING in several pertinent places. (see ticket:452)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/tools/asdf-install/port.lisp

    r9218 r12898  
    3434#-:digitool
    3535(defun system-namestring (pathname)
     36  #+:openmcl
     37  (ccl:native-translated-namestring (truename pathname))
     38  #-:openmcl
    3639  (namestring (truename pathname)))
    3740
     
    253256
    254257(defun symlink-files (old new)
    255   (let* ((old (#-scl namestring #+scl ext:unix-namestring old))
    256          (new (#-scl namestring #+scl ext:unix-namestring new #+scl nil))
     258  (let* ((old (#-scl system-namestring #+scl ext:unix-namestring old))
     259         (new (#-scl system-namestring #+scl ext:unix-namestring new #+scl nil))
    257260         ;; 20070811 - thanks to Juan Jose Garcia-Ripoll for pointing
    258261         ;; that ~a would wreck havoc if the working directory had a space
Note: See TracChangeset for help on using the changeset viewer.