Ignore:
Timestamp:
08/06/10 21:47:06 (12 years ago)
Author:
astalla
Message:

WIHT-CODE-TO-METHOD fixes and tests for nesting.

File:
1 edited

Legend:

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

    r12863 r12866  
    882882  labels ;; an alist
    883883
    884   current-local) ;; used for handling nested WITH-CODE-TO-METHOD blocks
     884  (current-local 0)) ;; used for handling nested WITH-CODE-TO-METHOD blocks
    885885
    886886
     
    10471047        *register* (code-current-local code)))
    10481048
    1049 (defmacro with-code-to-method ((class-file method &key safe-nesting) &body body)
     1049(defmacro with-code-to-method ((class-file method &key (safe-nesting t))
     1050             &body body)
    10501051  (let ((m (gensym))
    10511052        (c (gensym)))
     
    10551056               (save-code-specials *current-code-attribute*))))
    10561057       (let* ((,m ,method)
    1057               (,c (method-ensure-code method))
     1058              (,c (method-ensure-code ,method))
    10581059              (*pool* (class-file-constants ,class-file))
    10591060              (*code* (code-code ,c))
     
    10631064         ,@body
    10641065         (setf (code-code ,c) *code*
     1066         (code-current-local ,c) *register*
    10651067;;               (code-exception-handlers ,c) *handlers*
    10661068               (code-max-locals ,c) *registers-allocated*))
Note: See TracChangeset for help on using the changeset viewer.