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/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)))))
Note: See TracChangeset for help on using the changeset viewer.