Changeset 12853


Ignore:
Timestamp:
08/02/10 10:51:28 (12 years ago)
Author:
ehuelsmann
Message:

Convert DECLARE-LOCAL-FUNCTION and DUPLICATE-CLOSURE-ARRAY
to use CLASS-NAMEs instead of literal strings.

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/compiler-pass2.lisp

    r12850 r12853  
    22522252   local-function *declared-functions* ht g
    22532253   (setf g (symbol-name (gensym "LFUN")))
    2254    (let* ((pathname (abcl-class-file-pathname (local-function-class-file local-function)))
    2255     (class-name (concatenate 'string "org/armedbear/lisp/" (pathname-name pathname)))
    2256     (*code* *static-code*))
     2254   (let* ((class-name (abcl-class-file-class
     2255                       (local-function-class-file local-function)))
     2256          (*code* *static-code*))
    22572257     ;; fixme *declare-inline*
    22582258     (declare-field g +lisp-object+ +field-access-private+)
     
    30113011    (emit-push-constant-int 0)                            ;; destPos
    30123012    (emit-push-constant-int (length *closure-variables*)) ;; length
    3013     (emit-invokestatic "java/lang/System" "arraycopy"
     3013    (emit-invokestatic +java-system+ "arraycopy"
    30143014                       (list +java-object+ "I"
    30153015                             +java-object+ "I" "I") nil)
  • branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp

    r12850 r12853  
    133133(define-class-name +java-object+ "java.lang.Object")
    134134(define-class-name +java-string+ "java.lang.String")
     135(define-class-name +java-system+ "java.lang.System")
    135136(define-class-name +lisp-object+ "org.armedbear.lisp.LispObject")
    136137(defconstant +lisp-object-array+ (class-array +lisp-object+))
Note: See TracChangeset for help on using the changeset viewer.