Fix t9n naming issues

This commit is contained in:
Marcus Kammer 2024-08-06 08:59:23 +02:00
parent 43ce0d773b
commit a49dd28f65

View file

@ -71,9 +71,9 @@
(loop for (lang translation) on translations by #'cddr
do (setf (gethash lang (gethash key *t9n*)) translation)))
(when (zerop (hash-table-count *l10n*))
(when (zerop (hash-table-count *t9n*))
(dolist (entry *t9n-table*)
(add-translation (first entry) (first (rest entry)))))
(add-t9n (first entry) (first (rest entry)))))
(defun find-t9n (key lang dict)
"Finds the localized string for a given key and language."