Changeset 12851


Ignore:
Timestamp:
08/02/10 07:05:45 (13 years ago)
Author:
ehuelsmann
Message:

Continue CLASS-NAME integration: use a class-name object in the
CLASS slot of the ABCL-CLASS-FILE structure.

File:
1 edited

Legend:

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

    r12764 r12851  
    106106      (declare (type fixnum i))
    107107      (when (or (char= (char name i) #\-)
    108     (char= (char name i) #\Space))
     108                (char= (char name i) #\Space))
    109109        (setf (char name i) #\_)))
    110     (concatenate 'string "org/armedbear/lisp/" name)))
     110    (make-class-name
     111     (concatenate 'string "org.armedbear.lisp." name))))
    111112
    112113(defun make-unique-class-name ()
    113114  "Creates a random class name for use with a `class-file' structure's
    114115`class' slot."
    115   (concatenate 'string "abcl_"
    116           (java:jcall (java:jmethod "java.lang.String" "replace" "char" "char")
    117                       (java:jcall (java:jmethod "java.util.UUID" "toString")
    118                              (java:jstatic "randomUUID" "java.util.UUID"))
    119                       #\- #\_)))
     116  (make-class-name
     117   (concatenate 'string "abcl_"
     118                (substitute #\_ #\-
     119                            (java:jcall (java:jmethod "java.util.UUID"
     120                                                      "toString")
     121                                        (java:jstatic "randomUUID"
     122                                                      "java.util.UUID"))))))
    120123
    121124(defun make-class-file (&key pathname lambda-name lambda-list)
Note: See TracChangeset for help on using the changeset viewer.