Ignore:
Timestamp:
11/25/10 13:15:18 (13 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r13013 r13046  
    675675
    676676(defconstant +fasl-classloader+
    677   (jvm::make-class-name "org.armedbear.lisp.FaslClassLoader"))
     677  (jvm::make-jvm-class-name "org.armedbear.lisp.FaslClassLoader"))
    678678
    679679(defun generate-loader-function ()
     
    694694       (let* ((class (%format nil "org/armedbear/lisp/~A_~A"
    695695                                                basename i))
    696                                 (class-name (jvm::make-class-name class)))
     696                                (class-name (jvm::make-jvm-class-name class)))
    697697                           `(,(1- i)
    698698                              (jvm::with-inline-code ()
Note: See TracChangeset for help on using the changeset viewer.