Changeset 13604

Timestamp:

09/20/11 20:26:31 (11 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:

• FaslClassLoader.java (modified) (1 diff)
• Load.java (modified) (1 diff)
• compile-file.lisp (modified) (2 diffs)

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

@@ -151 +151 @@
         }
 
-        @Override
-        //TODO delete this next time the fasl version is bumbed
-        public LispObject execute(LispObject unused1, LispObject baseName, LispObject unused2) {
-            return execute(baseName);
-        }
-
     };
 

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

@@ -343 +343 @@
     // ### *fasl-version*
     // internal symbol
-
-    /* TODO when bumping the version for any reason, remember to:
-     *  - remove the overload taking 3 args in
-     *    FaslClassLoader.MAKE_FASL_CLASS_LOADER
-     *  - remove the extra args (1 and 3, both NIL) passed to
-     *    make-fasl-class-loader in compile-file.lisp
-     *  - delete this comment :)
-     */
     static final Symbol _FASL_VERSION_ =
-        exportConstant("*FASL-VERSION*", PACKAGE_SYS, Fixnum.getInstance(37));
+        exportConstant("*FASL-VERSION*", PACKAGE_SYS, Fixnum.getInstance(38));
 
     // ### *fasl-external-format*

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

@@ -569 +569 @@
     (let ((*load-truename* *output-file-pathname*)
           (*fasl-loader* (make-fasl-class-loader
-                          nil
                           (concatenate 'string
-                                       "org.armedbear.lisp." (base-classname))
-                          nil)))
+                                       "org.armedbear.lisp." (base-classname)))))
       (eval form))))
 
@@ -639 +637 @@
       (write (list 'setq '*fasl-loader*
                    `(sys::make-fasl-class-loader
-                     nil
-                     ,(concatenate 'string "org.armedbear.lisp." (base-classname))
-                     nil))
+                     ,(concatenate 'string "org.armedbear.lisp."
+                                   (base-classname))))
              :stream out))
     (%stream-terpri out)))