[armedbear-cvs] r13534 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Aug 23 13:31:01 2011
New Revision: 13534

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

Modified:
   trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Tue Aug 23 05:48:24 2011	(r13533)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Tue Aug 23 13:31:01 2011	(r13534)
@@ -595,9 +595,11 @@
           ;;; XXX it would be better to just use the recorded number
           ;;; of class constants, but probing for the first at least
           ;;; makes this subjectively bearable.
-          (when (probe-file (make-pathname :name (format nil "~A_1" (pathname-name truename))
-                                           :type "clc"
-                                           :defaults truename))
+          (when (probe-file
+                 (make-pathname :name (format nil "~A_0"
+                                              (pathname-name truename))
+                                :type "clc"
+                                :defaults truename))
             (dolist (resource (directory
                                (make-pathname :name (format nil "~A_*"
                                                             (pathname-name truename))