Changeset 12635

Timestamp:

04/25/10 07:06:04 (14 years ago)

Author:

ehuelsmann

Message:

Fix loading of stale fasls.

Patch by: David Kirkman dkirkman at ucsd dot edu

File:

• trunk/abcl/src/org/armedbear/lisp/Load.java (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/Load.java

@@ -85 +85 @@
             LispObject abcl = Pathname.truename(abclPathname, false);
             if (lisp instanceof Pathname && abcl instanceof Pathname) {
-                lispPathname = (Pathname)lisp;
-                abclPathname = (Pathname)abcl;
-                long lispLastModified = lispPathname.getLastModified();
-                long abclLastModified = abclPathname.getLastModified();
+              lispPathname = (Pathname)lisp;
+              abclPathname = (Pathname)abcl;
+              long lispLastModified = lispPathname.getLastModified();
+              long abclLastModified = abclPathname.getLastModified();
               if (abclLastModified > lispLastModified) {
+                  return abclPathname;  // fasl file is newer
+              } else {
                   return lispPathname;
-              } else {
-                  return abclPathname;
               }
             } else if (abcl instanceof Pathname) {