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

107
src/main.lisp
View file

@ -17,63 +17,64 @@
(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"))
("cancel" ("en" "Cancel" "de" "Abbrechen" "fr" "Annuler"))
("upload" ("en" "Upload" "de" "Hochladen" "fr" "Télécharger"))
("search" ("en" "Search" "de" "Suchen" "fr" "Rechercher"))
("option-selected" ("en" "Open this selected menu"
"de" "Das ausgewählte Menü öffnen"
"fr" "Ouvrir le menu sélectionné"))
("sign-up" ("en" "Sign Up" "de" "Registrieren" "fr" "Inscrivez-vous"))
("sign-in" ("en" "Sign In" "de" "Anmelden" "fr" "S'identifier"))
("next" ("en" "Next" "de" "Weiter" "fr" "Suivant"))
("previous" ("en" "Previous" "de" "Zurück" "fr" "Précédent"))
("settings" ("en" "Settings" "de" "Einstellungen" "fr" "Paramètres"))
("logout" ("en" "Logout" "de" "Abmelden" "fr" "Déconnexion"))
("profile" ("en" "Profile" "de" "Profil" "fr" "Profil"))
("save" ("en" "Save" "de" "Speichern" "fr" "Enregistrer"))
("delete" ("en" "Delete" "de" "Löschen" "fr" "Supprimer"))
("edit" ("en" "Edit" "de" "Bearbeiten" "fr" "Modifier"))
("confirm" ("en" "Confirm" "de" "Bestätigen" "fr" "Confirmer"))
("loading" ("en" "Loading..." "de" "Lädt..." "fr" "Chargement..."))
("error" ("en" "Error" "de" "Fehler" "fr" "Erreur"))
("success" ("en" "Success" "de" "Erfolg" "fr" "Succès"))
("close" ("en" "Close" "de" "Schließen" "fr" "Fermer"))
("help" ("en" "Help" "de" "Hilfe" "fr" "Aide"))
("home" ("en" "Home" "de" "Startseite" "fr" "Accueil"))
("welcome" ("en" "Welcome" "de" "Willkommen" "fr" "Bienvenue"))
("faq" ("en" "FAQ" "de" "Häufig gestellte Fragen" "fr" "FAQ"))
("contact" ("en" "Contact" "de" "Kontakt" "fr" "Contact"))
("privacy" ("en" "Privacy" "de" "Datenschutz" "fr" "Confidentialité"))
("terms" ("en" "Terms and Conditions" "de" "Allgemeine Geschäftsbedingungen" "fr" "Conditions Générales"))
("about" ("en" "About Us" "de" "Über uns" "fr" "À propos de nous"))
("add-to-cart" ("en" "Add to Cart" "de" "In den Warenkorb" "fr" "Ajouter au panier"))
("checkout" ("en" "Checkout" "de" "Kasse" "fr" "Passer à la caisse"))
("forgot-password" ("en" "Forgot Password?" "de" "Passwort vergessen?" "fr" "Mot de passe oublié ?"))
("username" ("en" "Username" "de" "Benutzername" "fr" "Nom d'utilisateur"))
("password" ("en" "Password" "de" "Passwort" "fr" "Mot de passe"))
("email" ("en" "Email" "de" "E-Mail" "fr" "Courrier électronique"))
("language" ("en" "Language" "de" "Sprache" "fr" "Langue"))
("read-more" ("en" "Read More" "de" "Weiterlesen" "fr" "En savoir plus"))
("show-less" ("en" "Show Less" "de" "Weniger anzeigen" "fr" "Montrer moins"))
("update" ("en" "Update" "de" "Aktualisieren" "fr" "Mettre à jour"))
("new" ("en" "New" "de" "Neu" "fr" "Nouveau"))
("old" ("en" "Old" "de" "Alt" "fr" "Ancien"))
("view-all" ("en" "View All" "de" "Alle anzeigen" "fr" "Voir tout"))
("cart" ("en" "Cart" "de" "Warenkorb" "fr" "Panier"))
("favorites" ("en" "Favorites" "de" "Favoriten" "fr" "Favoris"))
("share" ("en" "Share" "de" "Teilen" "fr" "Partager"))
("download" ("en" "Download" "de" "Herunterladen" "fr" "Télécharger"))
("print" ("en" "Print" "de" "Drucken" "fr" "Imprimer"))
("back" ("en" "Back" "de" "Zurück" "fr" "Retour"))
("create-account" ("en" "Create Account" "de" "Konto erstellen" "fr" "Créer un compte"))
("learn-more" ("en" "Learn More" "de" "Mehr erfahren" "fr" "En savoir plus")))
(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"))
("option-selected" ("en" "Open this selected menu"
"de" "Das ausgewählte Menü öffnen"
"fr" "Ouvrir le menu sélectionné"))
("sign-up" ("en" "Sign Up" "de" "Registrieren" "fr" "Inscrivez-vous"))
("sign-in" ("en" "Sign In" "de" "Anmelden" "fr" "S'identifier"))
("next" ("en" "Next" "de" "Weiter" "fr" "Suivant"))
("previous" ("en" "Previous" "de" "Zurück" "fr" "Précédent"))
("settings" ("en" "Settings" "de" "Einstellungen" "fr" "Paramètres"))
("logout" ("en" "Logout" "de" "Abmelden" "fr" "Déconnexion"))
("profile" ("en" "Profile" "de" "Profil" "fr" "Profil"))
("save" ("en" "Save" "de" "Speichern" "fr" "Enregistrer"))
("delete" ("en" "Delete" "de" "Löschen" "fr" "Supprimer"))
("edit" ("en" "Edit" "de" "Bearbeiten" "fr" "Modifier"))
("confirm" ("en" "Confirm" "de" "Bestätigen" "fr" "Confirmer"))
("loading" ("en" "Loading..." "de" "Lädt..." "fr" "Chargement..."))
("error" ("en" "Error" "de" "Fehler" "fr" "Erreur"))
("success" ("en" "Success" "de" "Erfolg" "fr" "Succès"))
("close" ("en" "Close" "de" "Schließen" "fr" "Fermer"))
("help" ("en" "Help" "de" "Hilfe" "fr" "Aide"))
("home" ("en" "Home" "de" "Startseite" "fr" "Accueil"))
("welcome" ("en" "Welcome" "de" "Willkommen" "fr" "Bienvenue"))
("faq" ("en" "FAQ" "de" "Häufig gestellte Fragen" "fr" "FAQ"))
("contact" ("en" "Contact" "de" "Kontakt" "fr" "Contact"))
("privacy" ("en" "Privacy" "de" "Datenschutz" "fr" "Confidentialité"))
("terms" ("en" "Terms and Conditions" "de" "Allgemeine Geschäftsbedingungen" "fr" "Conditions Générales"))
("about" ("en" "About Us" "de" "Über uns" "fr" "À propos de nous"))
("add-to-cart" ("en" "Add to Cart" "de" "In den Warenkorb" "fr" "Ajouter au panier"))
("checkout" ("en" "Checkout" "de" "Kasse" "fr" "Passer à la caisse"))
("forgot-password" ("en" "Forgot Password?" "de" "Passwort vergessen?" "fr" "Mot de passe oublié ?"))
("username" ("en" "Username" "de" "Benutzername" "fr" "Nom d'utilisateur"))
("password" ("en" "Password" "de" "Passwort" "fr" "Mot de passe"))
("email" ("en" "Email" "de" "E-Mail" "fr" "Courrier électronique"))
("language" ("en" "Language" "de" "Sprache" "fr" "Langue"))
("read-more" ("en" "Read More" "de" "Weiterlesen" "fr" "En savoir plus"))
("show-less" ("en" "Show Less" "de" "Weniger anzeigen" "fr" "Montrer moins"))
("update" ("en" "Update" "de" "Aktualisieren" "fr" "Mettre à jour"))
("new" ("en" "New" "de" "Neu" "fr" "Nouveau"))
("old" ("en" "Old" "de" "Alt" "fr" "Ancien"))
("view-all" ("en" "View All" "de" "Alle anzeigen" "fr" "Voir tout"))
("cart" ("en" "Cart" "de" "Warenkorb" "fr" "Panier"))
("favorites" ("en" "Favorites" "de" "Favoriten" "fr" "Favoris"))
("share" ("en" "Share" "de" "Teilen" "fr" "Partager"))
("download" ("en" "Download" "de" "Herunterladen" "fr" "Télécharger"))
("print" ("en" "Print" "de" "Drucken" "fr" "Imprimer"))
("back" ("en" "Back" "de" "Zurück" "fr" "Retour"))
("create-account" ("en" "Create Account" "de" "Konto erstellen" "fr" "Créer un compte"))
("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) find-l10n))