Ignore:
Timestamp:
Mar 29, 2010, 5:08:48 PM (9 years ago)
Author:
gz
Message:

replace ccl-0711 feature with ccl-qres

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/qres/ccl/level-1/l1-pathnames.lisp

    r13070 r13565  
    625625          (ignore-errors
    626626            (truename
    627              (native-to-directory-pathname (or #+ccl-0711 (getenv "HOME")
     627             (native-to-directory-pathname (or #+ccl-qres (getenv "HOME")
    628628                                               (get-user-home-dir (getuid))))))))
    629629    (if (and native (eq :absolute (car (pathname-directory native))))
Note: See TracChangeset for help on using the changeset viewer.