Whitespace cleanup in modules

[sxemacs] / modules / cl / cl-loop-profs.el

diff --git a/modules/cl/cl-loop-profs.el b/modules/cl/cl-loop-profs.el
index f6e3631..49c1faf 100644 (file)
--- a/modules/cl/cl-loop-profs.el
+++ b/modules/cl/cl-loop-profs.el
@@ -44,8 +44,8 @@
    (push "." load-path)
    (when (and (boundp 'load-file-name) (stringp load-file-name))
      (push (expand-file-name "../tests/benchmark"
-                             (file-name-directory load-file-name))
-           load-path))
+                            (file-name-directory load-file-name))
+          load-path))
    (require 'benchmark)))
 
 (require 'cl-loop)
@@ -58,7 +58,7 @@
 (defun cl:loop-count (N)
   "C count clause"
   (cl:loop for i below N
-           count (primep i)))
+          count (primep i)))
 
 (defun loop-for (N)
   "lisp for-arith clause"