|
|
@@ -58,13 +58,15 @@
|
|
|
(or (equal name "ДТ+")
|
|
|
(equal name "Аи-92")
|
|
|
(equal name "Аи-95")
|
|
|
- (equal name "Аи-98")))
|
|
|
+ (equal name "Аи-98")
|
|
|
+ (equal name "G-95")))
|
|
|
|
|
|
(defun get-currency (name)
|
|
|
(cond
|
|
|
((or (equal name "Аи-92")
|
|
|
(equal name "Аи-95")
|
|
|
- (equal name "Аи-98")) "BENZ")
|
|
|
+ (equal name "Аи-98")
|
|
|
+ (equal name "G-95")) "BENZ")
|
|
|
((equal name "ДТ+") "DIZ")
|
|
|
(t *default-currency*)))
|
|
|
|