|
@@ -243,7 +243,7 @@
|
|
|
(< (getf info :next-payment) closest-time))
|
|
(< (getf info :next-payment) closest-time))
|
|
|
do (setf closest-time (getf info :next-payment)
|
|
do (setf closest-time (getf info :next-payment)
|
|
|
closest-payment payment)
|
|
closest-payment payment)
|
|
|
- collect (format nil "~D) ~A по [~A]: накоплено _~$_ из _~$_, осталось _~$_ за ~A платежа"
|
|
|
|
|
|
|
+ collect (format nil "~D) ~A по [[~A]]: накоплено _~$_ из _~$_, осталось _~$_ за ~A платежа"
|
|
|
idx
|
|
idx
|
|
|
(saver/payment-name payment)
|
|
(saver/payment-name payment)
|
|
|
(saver/payment-schedule payment)
|
|
(saver/payment-schedule payment)
|