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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Feb  8 22:48:32 2009
New Revision: 11649

Log:
Indentation: make opcode-enumerations look like elsewhere.

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

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Sun Feb  8 22:48:32 2009
@@ -983,19 +983,14 @@
         ((eq target 'stack)) ; Nothing to do.
         ((fixnump target)
          ;; A register.
-         (emit
-          (ecase representation
-            ((:int :boolean :char)
-             'istore)
-            (:long
-             'lstore)
-            (:float
-             'fstore)
-            (:double
-             'dstore)
-            ((nil)
-             'astore))
-          target))
+         (emit (ecase representation
+                 ((:int :boolean :char)
+                          'istore)
+                 (:long   'lstore)
+                 (:float  'fstore)
+                 (:double 'dstore)
+                 ((nil)   'astore))
+               target))
         (t
          (sys::%format t "emit-move-from-stack general case~%")
          (aver nil))))