Fix t9n naming issues
This commit is contained in:
parent
43ce0d773b
commit
a49dd28f65
1 changed files with 2 additions and 2 deletions
|
@ -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."
|
||||
|
|
Loading…
Add table
Reference in a new issue