Changeset 13604
- Timestamp:
- 09/20/11 20:26:31 (11 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/FaslClassLoader.java
r13514 r13604 151 151 } 152 152 153 @Override154 //TODO delete this next time the fasl version is bumbed155 public LispObject execute(LispObject unused1, LispObject baseName, LispObject unused2) {156 return execute(baseName);157 }158 159 153 }; 160 154 -
trunk/abcl/src/org/armedbear/lisp/Load.java
r13599 r13604 343 343 // ### *fasl-version* 344 344 // internal symbol 345 346 /* TODO when bumping the version for any reason, remember to:347 * - remove the overload taking 3 args in348 * FaslClassLoader.MAKE_FASL_CLASS_LOADER349 * - remove the extra args (1 and 3, both NIL) passed to350 * make-fasl-class-loader in compile-file.lisp351 * - delete this comment :)352 */353 345 static final Symbol _FASL_VERSION_ = 354 exportConstant("*FASL-VERSION*", PACKAGE_SYS, Fixnum.getInstance(3 7));346 exportConstant("*FASL-VERSION*", PACKAGE_SYS, Fixnum.getInstance(38)); 355 347 356 348 // ### *fasl-external-format* -
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r13534 r13604 569 569 (let ((*load-truename* *output-file-pathname*) 570 570 (*fasl-loader* (make-fasl-class-loader 571 nil572 571 (concatenate 'string 573 "org.armedbear.lisp." (base-classname)) 574 nil))) 572 "org.armedbear.lisp." (base-classname))))) 575 573 (eval form)))) 576 574 … … 639 637 (write (list 'setq '*fasl-loader* 640 638 `(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)))) 644 641 :stream out)) 645 642 (%stream-terpri out)))
Note: See TracChangeset
for help on using the changeset viewer.