Changeset 13534 for trunk/abcl/src/org


Ignore:
Timestamp:
08/23/11 20:31:01 (10 years ago)
Author:
ehuelsmann
Message:

Follow-up to r13531: The first resource file is _0, not _1.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r13532 r13534  
    596596          ;;; of class constants, but probing for the first at least
    597597          ;;; makes this subjectively bearable.
    598           (when (probe-file (make-pathname :name (format nil "~A_1" (pathname-name truename))
    599                                            :type "clc"
    600                                            :defaults truename))
     598          (when (probe-file
     599                 (make-pathname :name (format nil "~A_0"
     600                                              (pathname-name truename))
     601                                :type "clc"
     602                                :defaults truename))
    601603            (dolist (resource (directory
    602604                               (make-pathname :name (format nil "~A_*"
Note: See TracChangeset for help on using the changeset viewer.