(define (lot-split->posting-split split)
  (let* ((lot (xaccSplitGetLot split)))
    (find
     (lambda (s)
       (not (sign-equal? (xaccSplitGetAmount s)
                         (xaccSplitGetAmount split))))
     (gnc-lot-get-split-list lot))))