Changeset 11877


Ignore:
Timestamp:
05/15/09 20:45:31 (12 years ago)
Author:
ehuelsmann
Message:

Remove obsolete commented out code,
more reindenting < 80 columns.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11876 r11877  
    30263026           (dformat t "compile-local-function-call LABELS case variable = ~S~%"
    30273027                   (variable-name (local-function-variable local-function)))
    3028            (compile-var-ref (make-var-ref (local-function-variable local-function)) 'stack nil))
     3028           (compile-var-ref (make-var-ref
     3029                             (local-function-variable local-function))
     3030                            'stack nil))
    30293031          (t
    30303032           (dformat t "compile-local-function-call default case~%")
    30313033           (let* ((g (if *file-compilation*
    30323034                         (declare-local-function local-function)
    3033                          (declare-object (local-function-function local-function)))))
    3034              (emit 'getstatic *this-class* g +lisp-object+) ; Stack: template-function
     3035                         (declare-object
     3036                          (local-function-function local-function)))))
     3037             (emit 'getstatic *this-class* g +lisp-object+)
     3038                                        ; Stack: template-function
    30353039             (when *closure-variables*
    30363040               (emit 'checkcast +lisp-ctf-class+)
     
    50035007            ((local-function-variable local-function)
    50045008             (dformat t "p2-function 2 emitting var-ref~%")
    5005 ;;;          (emit 'var-ref (local-function-variable local-function) 'stack)
    50065009             (compile-var-ref (make-var-ref
    50075010                               (local-function-variable local-function))
    5008                               'stack nil)
    5009              )
     5011                              'stack nil))
    50105012            (t
    50115013             (let ((g (if *file-compilation*
     
    50495051            ((local-function-variable local-function)
    50505052             (dformat t "p2-function 2~%")
    5051 ;;           (emit 'var-ref (local-function-variable local-function) 'stack)
    50525053             (compile-var-ref (make-var-ref
    50535054                               (local-function-variable local-function))
    5054                               'stack nil)
    5055              )
     5055                              'stack nil))
    50565056            (t
    50575057             (let ((g (if *file-compilation*
Note: See TracChangeset for help on using the changeset viewer.