I dont think this patch has any ill-effects - But I only tested on Win64/Linux64 Sun Java 6s
Its for http://trac.common-lisp.net/armedbear/attachment/ticket/34 (Ignore the previous patch posted there) The goal of it.. for is for the start leveraging Ahead Of Time compilers like GCJ/EcellisorJET
According to Peter the original use of ".cls" was more for figuring out which files to delete.. not because the classfile format was non-compliant.
---------------------------------------------------------------------------------------------------------------- Index: src/org/armedbear/lisp/compile-file.lisp =================================================================== --- src/org/armedbear/lisp/compile-file.lisp (revision 12273) +++ src/org/armedbear/lisp/compile-file.lisp (working copy) @@ -45,8 +45,8 @@ *output-file-pathname*)) "Computes the name of the class file associated with number `n'." (let ((name - (%format nil "~A-~D" - (substitute #_ #. + (%format nil "~A_~D" + (substitute #$ #. (pathname-name output-file-pathname)) n))) (namestring (merge-pathnames (make-pathname :name name :type "cls") output-file-pathname))))