Minor cleanups.

darcs-hash:57b1ce2455369fba915bd730fe63eacb3e169a25

1 files changed, 9 insertions, 7 deletions

diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index 47c39a9..e9e5f3c 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -763,13 +763,15 @@ separating parts by hyphens works nicely in all of the `:INVERT`,
                  (loop for element in list
                        for i from 0
                        do (setf (mem-aref array type i) element))))
-          (loop for (array . list) in (list (cons %protocol-names protocol-names)
-                                            (cons %ivar-names ivar-names)
-                                            (cons %ivar-typestrings ivar-typestrings))
-                do (fill-foreign-array-from-list array
-                                                 (mapcar #'allocate-temporary-string
-                                                         list)
-                                                 :pointer)))
+          (loop for (array . list)
+                  in (list (cons %protocol-names protocol-names)
+                           (cons %ivar-names ivar-names)
+                           (cons %ivar-typestrings ivar-typestrings))
+                do (fill-foreign-array-from-list
+                        array
+                        (mapcar #'allocate-temporary-string
+                                list)
+                        :pointer)))
         (%objcl-create-class class-name
                              (pointer-to superclass)
                              (length protocol-names)