Changeset 12854


Ignore:
Timestamp:
08/02/10 11:03:40 (13 years ago)
Author:
ehuelsmann
Message:

Convert known-symbols.lisp to CLASS-NAMEs.

Location:
branches/generic-class-file/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm.lisp

    r12851 r12854  
    4343  (require "COMPILER-ERROR")
    4444  (require "KNOWN-FUNCTIONS")
    45   (require "KNOWN-SYMBOLS")
    4645  (require "DUMP-FORM")
    4746  (require "OPCODES")
    4847  (require "JVM-CLASS-FILE")
     48  (require "KNOWN-SYMBOLS")
    4949  (require "JAVA")
    5050  (require "COMPILER-PASS1")

  • branches/generic-class-file/abcl/src/org/armedbear/lisp/known-symbols.lisp

    r12583 r12854  
    3939  (defun initialize-known-symbols (source ht)
    4040    (let* ((source-class (java:jclass source))
    41            (class-designator (substitute #\/ #\. source))
     41           (class-designator (jvm::make-class-name source))
    4242           (symbol-class (java:jclass "org.armedbear.lisp.Symbol"))
    4343           (fields (java:jclass-fields source-class :declared t :public t)))
Note: See TracChangeset for help on using the changeset viewer.