[armedbear-devel] Class file extenstions

[logicmoo at gmail.com]

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))))
-------------- next part --------------
A non-text attachment was scrubbed...
Name: ClsAsClass.patch
Type: application/octet-stream
Size: 756 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/armedbear-devel/attachments/20091110/4243f16a/attachment.obj>