Changeset 13046 for trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

Timestamp:

11/25/10 13:15:18 (12 years ago)

Author:

ehuelsmann

Message:

Fix ANSI regressions caused by the implementation
of the new class writer.

Found by: Mark Evenson
Patch by: me

File:

• trunk/abcl/src/org/armedbear/lisp/compile-file.lisp (modified) (2 diffs)

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

@@ -675 +675 @@
 
 (defconstant +fasl-classloader+
-  (jvm::make-class-name "org.armedbear.lisp.FaslClassLoader"))
+  (jvm::make-jvm-class-name "org.armedbear.lisp.FaslClassLoader"))
 
 (defun generate-loader-function ()
@@ -694 +694 @@
        (let* ((class (%format nil "org/armedbear/lisp/~A_~A"
                                                 basename i))
-                                (class-name (jvm::make-class-name class)))
+                                (class-name (jvm::make-jvm-class-name class)))
                            `(,(1- i)
                               (jvm::with-inline-code ()