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.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.