Changeset 12851
- Timestamp:
- 08/02/10 07:05:45 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm.lisp
r12764 r12851 106 106 (declare (type fixnum i)) 107 107 (when (or (char= (char name i) #\-) 108 108 (char= (char name i) #\Space)) 109 109 (setf (char name i) #\_))) 110 (concatenate 'string "org/armedbear/lisp/" name))) 110 (make-class-name 111 (concatenate 'string "org.armedbear.lisp." name)))) 111 112 112 113 (defun make-unique-class-name () 113 114 "Creates a random class name for use with a `class-file' structure's 114 115 `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")))))) 120 123 121 124 (defun make-class-file (&key pathname lambda-name lambda-list)
Note: See TracChangeset
for help on using the changeset viewer.