Changeset 15569 for trunk/abcl/src/org/armedbear/lisp/jvm-class-file.lisp

Timestamp:

03/19/22 12:50:18 (18 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/jvm-class-file.lisp (modified) (5 diffs)

trunk/abcl/src/org/armedbear/lisp/jvm-class-file.lisp

@@ -133 +133 @@
   (setf name (substitute #\/ #\. name))
   (%make-jvm-class-name :name-internal name
-      :ref (concatenate 'string "L" name ";")))
+                        :ref (concatenate 'string "L" name ";")))
 
 (defun class-array (class-name)
@@ -151 +151 @@
       (setf (class-array-class class-name)
             (%make-jvm-class-name :name-internal name-and-ref
-          :ref name-and-ref))))
+                                  :ref name-and-ref))))
   (class-array-class class-name))
 
@@ -1105 +1105 @@
 
 (defstruct (jvm-method (:constructor %make-jvm-method)
-           (:conc-name method-))
+                       (:conc-name method-))
   "Holds information on the properties of methods in the class(-file)."
   access-flags
@@ -1130 +1130 @@
   "Creates a method for addition to a class file."
   (%make-jvm-method :descriptor (cons return args)
-        :access-flags flags
-        :name (map-method-name name)))
+                    :access-flags flags
+                    :name (map-method-name name)))
 
 (defun method-add-attribute (method attribute)
@@ -1147 +1147 @@
                            (if (member :static (method-access-flags method))
                                0 1)) ;; 1 == implicit 'this'
-      optimize)))
+                        optimize)))
 
 (defun method-ensure-code (method &optional (optimize t))