@@ -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 "Аи-98")) "BENZ")
+ (equal name "G-95")) "BENZ")
((equal name "ДТ+") "DIZ")
(t *default-currency*)))