[armedbear-cvs] r14097 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Aug 16 13:01:43 2012
New Revision: 14097

Log:
Indenting.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	Wed Aug 15 15:55:27 2012	(r14096)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	Thu Aug 16 13:01:43 2012	(r14097)
@@ -921,7 +921,7 @@
     (dolist (local-function local-functions)
       (push local-function *local-functions*))
     (with-saved-compiler-policy
-        (process-optimization-declarations (cddr form))
+      (process-optimization-declarations (cddr form))
       (let* ((block (make-flet-node))
              (*block* block)
              (*blocks* (cons block *blocks*))