marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Provide fname to declaim

Browse source
This commit is contained in:
Marcus Kammer 2023-09-22 15:20:19 +02:00
parent 4bf9525e66
commit 6fe194c5b4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/main.lisp
View file

@ -76,7 +76,7 @@
("learn-more" ("en" "Learn More" "de" "Mehr erfahren" "fr" "En savoir plus")))
"Localization (l10n) settings for multi-language support.")
(declaim (ftype (function (string string dict) string)))
(declaim (ftype (function (string string dict) string) find-l10n))
(defun find-l10n (key lang dict)
"Finds the localized string for a given key and language."
(let ((entry (cadr (assoc key dict :test #'string=))))