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

Timestamp:

03/19/22 12:50:18 (13 months ago)

Author:

Mark Evenson

Message:

Untabify en masse

Results of running style.org source blocks on tree

File:

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

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

@@ -951 +951 @@
   (let* ((*compiler-debug* nil)
          (method (make-jvm-method :constructor :void nil
-          :flags '(:public)))
+                                  :flags '(:public)))
          ;; We don't normally need to see debugging output for constructors.
          (super (class-file-superclass class))
@@ -3924 +3924 @@
     (with-operand-accumulation
          ((emit-variable-operand (block-id-variable block))
-    (emit-load-externalized-object-operand (block-name block))
-    (compile-operand result-form nil))
+          (emit-load-externalized-object-operand (block-name block))
+          (compile-operand result-form nil))
        (emit-invokestatic +lisp+ "nonLocalReturn" (lisp-object-arg-types 3)
-        +lisp-object+))
+                          +lisp-object+))
     ;; Following code will not be reached, but is needed for JVM stack
     ;; consistency.
@@ -3942 +3942 @@
            (compile-form arg target nil))
           ((and (consp arg) (eq (%car arg) 'cdr) (= (length arg) 2))
-     (compile-forms-and-maybe-emit-clear-values (second arg) 'stack nil)
+           (compile-forms-and-maybe-emit-clear-values (second arg) 'stack nil)
            (emit-invoke-method "cadr" target representation))
           (t
@@ -4006 +4006 @@
     (with-operand-accumulation
         ((compile-operand symbols-form nil)
-   (compile-operand values-form nil))
+         (compile-operand values-form nil))
       (unless (and (single-valued-p symbols-form)
-       (single-valued-p values-form))
-  (emit-clear-values))
+                   (single-valued-p values-form))
+        (emit-clear-values))
       (save-dynamic-environment environment-register)
       ;; Compile call to Lisp.progvBindVars().
       (emit-push-current-thread)
       (emit-invokestatic +lisp+ "progvBindVars"
-       (list +lisp-object+ +lisp-object+ +lisp-thread+) nil))
+                         (list +lisp-object+ +lisp-object+ +lisp-thread+) nil))
       ;; Implicit PROGN.
     (let ((*blocks* (cons block *blocks*)))
@@ -6902 +6902 @@
        (compile-operand (third form) nil)) ; Result.
     (emit-invokevirtual +lisp-thread+ "throwToTag"
-       (lisp-object-arg-types 2) nil))
+                         (lisp-object-arg-types 2) nil))
   ;; Following code will not be reached.
   (when target
@@ -7431 +7431 @@
   `(lambda ,(cadr form)
      (error 'program-error :format-control "Program error while compiling ~a" :format-arguments 
-      (if ,condition 
-    (list (apply 'format nil ,(slot-value condition 'sys::format-control) ',(slot-value condition 'sys::format-arguments)))
-    (list "a form")))))
+            (if ,condition 
+                (list (apply 'format nil ,(slot-value condition 'sys::format-control) ',(slot-value condition 'sys::format-arguments)))
+                (list "a form")))))
 
 (defun compile-defun (name form environment filespec stream *declare-inline*)