Changeset 11877 for trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Timestamp:

05/15/09 20:45:31 (14 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (3 diffs)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -3026 +3026 @@
            (dformat t "compile-local-function-call LABELS case variable = ~S~%"
                    (variable-name (local-function-variable local-function)))
-           (compile-var-ref (make-var-ref (local-function-variable local-function)) 'stack nil))
+           (compile-var-ref (make-var-ref
+                             (local-function-variable local-function))
+                            'stack nil))
           (t
            (dformat t "compile-local-function-call default case~%")
            (let* ((g (if *file-compilation*
                          (declare-local-function local-function)
-                         (declare-object (local-function-function local-function)))))
-             (emit 'getstatic *this-class* g +lisp-object+) ; Stack: template-function
+                         (declare-object
+                          (local-function-function local-function)))))
+             (emit 'getstatic *this-class* g +lisp-object+)
+                                        ; Stack: template-function
              (when *closure-variables*
                (emit 'checkcast +lisp-ctf-class+)
@@ -5003 +5007 @@
             ((local-function-variable local-function)
              (dformat t "p2-function 2 emitting var-ref~%")
-;;;          (emit 'var-ref (local-function-variable local-function) 'stack)
              (compile-var-ref (make-var-ref
                                (local-function-variable local-function))
-                              'stack nil)
-             )
+                              'stack nil))
             (t
              (let ((g (if *file-compilation*
@@ -5049 +5051 @@
             ((local-function-variable local-function)
              (dformat t "p2-function 2~%")
-;;           (emit 'var-ref (local-function-variable local-function) 'stack)
              (compile-var-ref (make-var-ref
                                (local-function-variable local-function))
-                              'stack nil)
-             )
+                              'stack nil))
             (t
              (let ((g (if *file-compilation*