Changeset 13046 for trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
- Timestamp:
- 11/25/10 13:15:18 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r13013 r13046 675 675 676 676 (defconstant +fasl-classloader+ 677 (jvm::make- class-name "org.armedbear.lisp.FaslClassLoader"))677 (jvm::make-jvm-class-name "org.armedbear.lisp.FaslClassLoader")) 678 678 679 679 (defun generate-loader-function () … … 694 694 (let* ((class (%format nil "org/armedbear/lisp/~A_~A" 695 695 basename i)) 696 (class-name (jvm::make- class-name class)))696 (class-name (jvm::make-jvm-class-name class))) 697 697 `(,(1- i) 698 698 (jvm::with-inline-code ()
Note: See TracChangeset
for help on using the changeset viewer.