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

Fix dictp as mapcar alsways returns T

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

7
src/main.lisp
View file

@ -17,13 +17,14 @@
(and (listp entry)
(= (length entry) 2)
(stringp (first entry))
(mapcar (lambda (entry) (every #'stringp entry)) (rest entry)))))
(every #'stringp (second entry)))))
(deftype dict ()
'(and list (satisfies dictp)))
(declaim (type dict l10n))
(defvar l10n '(("submit" ("en" "Submit" "de" "Absenden" "fr" "Soumettre"))
(declaim (type dict *l10n*))
(defvar *l10n*
'(("submit" ("en" "Submit" "de" "Absenden" "fr" "Soumettre"))
("cancel" ("en" "Cancel" "de" "Abbrechen" "fr" "Annuler"))
("upload" ("en" "Upload" "de" "Hochladen" "fr" "Télécharger"))
("search" ("en" "Search" "de" "Suchen" "fr" "Rechercher"))