Ignore:
Timestamp:
11/25/10 13:15:18 (11 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/jvm.lisp

    r13025 r13046  
    139139                (char= (char name i) #\Space))
    140140        (setf (char name i) #\_)))
    141     (make-class-name
     141    (make-jvm-class-name
    142142     (concatenate 'string "org.armedbear.lisp." name))))
    143143
     
    145145  "Creates a random class name for use with a `class-file' structure's
    146146`class' slot."
    147   (make-class-name
     147  (make-jvm-class-name
    148148   (concatenate 'string "abcl_"
    149149                (substitute #\_ #\-
Note: See TracChangeset for help on using the changeset viewer.