Changeset 2599

Show
Ignore:
Timestamp:
02/22/08 16:54:30 (11 months ago)
Author:
hans
Message:

Merge fix from branch

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/web/allocation-area-handlers.lisp

    r2484 r2599  
    228228  (destructuring-bind (x y) (read-from-string (format nil "(~A)" line)) 
    229229    (cons (scale-coordinate 'x +nw-utm-x+ x) 
    230          (scale-coordinate 'y (- +nw-utm-y+ +width+) y)))) 
     230          (- +width+ (scale-coordinate 'y (- +nw-utm-y+ +width+) y))))) 
    231231 
    232232(defun polygon-from-text-file (filename)