Changeset 13115 for release/1.4


Ignore:
Timestamp:
Oct 29, 2009, 2:02:10 AM (10 years ago)
Author:
rme
Message:

asdf-install fixes from trunk (r13113, r13114)

Location:
release/1.4/source/tools/asdf-install
Files:
2 edited

Legend:

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

    r12899 r13115  
    319319  (ensure-directories-exist source)
    320320  (ensure-directories-exist system)
    321   (let* ((tar (extract source packagename))
     321  (let* ((tar-output (extract source packagename))
     322         (tar (if (string= tar-output "x " :end1 2)
     323                (subseq tar-output 2)
     324                tar-output))
    322325         (pos-slash (or (position #\/ tar)
    323326                        (position #\Return tar)
  • release/1.4/source/tools/asdf-install/port.lisp

    r12898 r13115  
    3535(defun system-namestring (pathname)
    3636  #+:openmcl
    37   (ccl:native-translated-namestring (truename pathname))
     37  (ccl:native-translated-namestring pathname)
    3838  #-:openmcl
    3939  (namestring (truename pathname)))
     
    309309(defun open-file-arguments ()
    310310  (append
    311    #+sbcl
     311   #+(or sbcl ccl)
    312312   '(:external-format :latin1)
    313313   #+:scl
Note: See TracChangeset for help on using the changeset viewer.