[bknr-cvs] ksprotte changed trunk/projects/bos/m2/m2.lisp

[BKNR Commits]

Revision: 3482
Author: ksprotte
URL: http://bknr.net/trac/changeset/3482

just indentation, sorry

U   trunk/projects/bos/m2/m2.lisp

Modified: trunk/projects/bos/m2/m2.lisp
===================================================================
--- trunk/projects/bos/m2/m2.lisp	2008-07-17 12:10:43 UTC (rev 3481)
+++ trunk/projects/bos/m2/m2.lisp	2008-07-17 12:15:06 UTC (rev 3482)
@@ -161,7 +161,7 @@
   "Return a unique number to use when generating a sponsor.
   Uniqueness is guaranteed only across the running time of the process."
   (bknr.datastore::mp-with-lock-held (*sponsor-counter-lock*)
-    (incf *sponsor-counter*)))
+                                     (incf *sponsor-counter*)))
 
 (defun make-sponsor (&rest initargs &key login &allow-other-keys)
   (apply #'make-object 'sponsor
@@ -398,37 +398,37 @@
         (labels ( ;; to-orig
                  (distance-to-orig (d)
                    (when-scaling-needed d
-                     (round (* d scaler))))
+                                        (round (* d scaler))))
                  (x-coordinate-to-orig (x)
                    (when-scaling-needed x
-                     (+ left (round (* (- x left) scaler)))))
+                                        (+ left (round (* (- x left) scaler)))))
                  (y-coordinate-to-orig (y)
                    (when-scaling-needed y
-                     (+ top (round (* (- y top) scaler)))))
+                                        (+ top (round (* (- y top) scaler)))))
                  (rectangle-to-orig (r)
                    (when-scaling-needed r
-                     (geometry:with-rectangle r
-                       (list (x-coordinate-to-orig left)
-                             (y-coordinate-to-orig top)
-                             (distance-to-orig width)
-                             (distance-to-orig height)))))
+                                        (geometry:with-rectangle r
+                                          (list (x-coordinate-to-orig left)
+                                                (y-coordinate-to-orig top)
+                                                (distance-to-orig width)
+                                                (distance-to-orig height)))))
                  ;; from-orig
                  (distance-from-orig (d)
                    (when-scaling-needed d
-                     (floor d scaler)))
+                                        (floor d scaler)))
                  (x-coordinate-from-orig (x)
                    (when-scaling-needed x
-                     (+ left (floor (- x left) scaler))))
+                                        (+ left (floor (- x left) scaler))))
                  (y-coordinate-from-orig (y)
                    (when-scaling-needed y
-                     (+ top (floor (- y top) scaler))))
+                                        (+ top (floor (- y top) scaler))))
                  (rectangle-from-orig (r)
                    (when-scaling-needed r
-                     (geometry:with-rectangle r
-                       (list (x-coordinate-from-orig left)
-                             (y-coordinate-from-orig top)
-                             (distance-from-orig width)
-                             (distance-from-orig height))))))
+                                        (geometry:with-rectangle r
+                                          (list (x-coordinate-from-orig left)
+                                                (y-coordinate-from-orig top)
+                                                (distance-from-orig width)
+                                                (distance-from-orig height))))))
           (rectangle-to-orig
            (screamer-user:largest-rectangle
             (rectangle-from-orig bounding-box)