Ignore:
Timestamp:
Dec 19, 2006, 8:24:52 AM (13 years ago)
Author:
gb
Message:

Just to be on the safe side (new pathname bugs, or old ?), append -BAK to
(NAMESTRING (TRUENAME path)), not just (NAMESTRING path) when renaming.
(MERGE-PATHNAMES call is producing a pathane with a non-null VERSION component,
as it arguably should have been all along.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/library/parse-ffi.lisp

    r3819 r5632  
    13461346               (when (probe-file path)
    13471347                 (rename-file path
    1348                               (concatenate 'string (namestring path) "-BAK")
     1348                              (concatenate 'string (namestring (truename path)) "-BAK")
    13491349                              :if-exists :supersede))
    13501350               (rename-file newpath path)
Note: See TracChangeset for help on using the changeset viewer.