Changeset 12898


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)

Location:
trunk/source/tools/asdf-install
Files:
2 edited

Legend:

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

    r9218 r12898  
    291291(defun tar-arguments (source packagename)
    292292  #-(or :win32 :mswindows :scl)
    293   (list "-C" (namestring (truename source))
    294         "-xzvf" (namestring (truename packagename)))
     293  (list "-C" (system-namestring (truename source))
     294        "-xzvf" (system-namestring (truename packagename)))
    295295  #+(or :win32 :mswindows)
    296296  (list "-l"
    297297        "-c"
    298298        (format nil "\"tar -C \\\"`cygpath '~A'`\\\" -xzvf \\\"`cygpath '~A'`\\\"\""
    299                 (namestring (truename source))
    300                 (namestring (truename packagename))))
     299                (system-namestring (truename source))
     300                (system-namestring (truename packagename))))
    301301  #+scl
    302302  (list "-C" (ext:unix-namestring (truename source))
     
    329329           source)))
    330330    ;(princ tar)
     331    (break)
    331332    (loop for sysfile in (append
    332333                          (directory
     
    493494      #-(or :win32 :mswindows)
    494495      (delete-file asd)
    495       (let ((dir (#-scl namestring #+scl ext:unix-namestring (truename dir))))
     496      (let ((dir (#-scl system-namestring #+scl ext:unix-namestring (truename dir))))
    496497        (when dir
    497498          (asdf:run-shell-command "rm -r '~A'" dir)))))
  • 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.