Changeset 13604


Ignore:
Timestamp:
09/20/11 20:26:31 (10 years ago)
Author:
ehuelsmann
Message:

Bump FASL format because of the now supported circularity: even though
we're backward compatible, older versions aren't forward compatible.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/FaslClassLoader.java

    r13514 r13604  
    151151        }
    152152
    153         @Override
    154         //TODO delete this next time the fasl version is bumbed
    155         public LispObject execute(LispObject unused1, LispObject baseName, LispObject unused2) {
    156             return execute(baseName);
    157         }
    158 
    159153    };
    160154
  • trunk/abcl/src/org/armedbear/lisp/Load.java

    r13599 r13604  
    343343    // ### *fasl-version*
    344344    // internal symbol
    345 
    346     /* TODO when bumping the version for any reason, remember to:
    347      *  - remove the overload taking 3 args in
    348      *    FaslClassLoader.MAKE_FASL_CLASS_LOADER
    349      *  - remove the extra args (1 and 3, both NIL) passed to
    350      *    make-fasl-class-loader in compile-file.lisp
    351      *  - delete this comment :)
    352      */
    353345    static final Symbol _FASL_VERSION_ =
    354         exportConstant("*FASL-VERSION*", PACKAGE_SYS, Fixnum.getInstance(37));
     346        exportConstant("*FASL-VERSION*", PACKAGE_SYS, Fixnum.getInstance(38));
    355347
    356348    // ### *fasl-external-format*
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r13534 r13604  
    569569    (let ((*load-truename* *output-file-pathname*)
    570570          (*fasl-loader* (make-fasl-class-loader
    571                           nil
    572571                          (concatenate 'string
    573                                        "org.armedbear.lisp." (base-classname))
    574                           nil)))
     572                                       "org.armedbear.lisp." (base-classname)))))
    575573      (eval form))))
    576574
     
    639637      (write (list 'setq '*fasl-loader*
    640638                   `(sys::make-fasl-class-loader
    641                      nil
    642                      ,(concatenate 'string "org.armedbear.lisp." (base-classname))
    643                      nil))
     639                     ,(concatenate 'string "org.armedbear.lisp."
     640                                   (base-classname))))
    644641             :stream out))
    645642    (%stream-terpri out)))
Note: See TracChangeset for help on using the changeset viewer.