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)