(defvar +language-abbreviations+
- '(("BAQ" . "Basque")
- ("DAN" . "Danish")
- ("DUT" . "Dutch")
- ("ENG" . "English")
- ("FIN" . "Finnish")
- ("FRE" . "French")
- ("GER" . "German")
- ("HEB" . "Hebrew")
- ("HUN" . "Hungarian")
- ("ITA" . "Italian")
- ("NOR" . "Norwegian")
- ("POR" . "Portuguese")
- ("RUS" . "Russian")
- ("SPA" . "Spanish")
- ("SWE" . "Swedish")))
+ '(("BAQ" . "Basque")
+ ("CZE" . "Chech")
+ ("DAN" . "Danish")
+ ("DUT" . "Dutch")
+ ("ENG" . "English")
+ ("FIN" . "Finnish")
+ ("FRE" . "French")
+ ("GER" . "German")
+ ("HEB" . "Hebrew")
+ ("HUN" . "Hungarian")
+ ("ITA" . "Italian")
+ ("JPN" . "Japanese")
+ ("NOR" . "Norwegian")
+ ("POR" . "Portuguese")
+ ("RUS" . "Russian")
+ ("SPA" . "Spanish")
+ ("SWE" . "Swedish")))
(defvar *lat-info-table* (make-hash-table :size 30 :test 'equal))
(defvar *is-lat-table-init* nil)
(setq *is-lat-table-init* t))
(defun lat-abbr-info (lat)
- (nth-value 0 (gethash (string-downcase lat) *lat-info-table*)))
+ (aif (nth-value 0 (gethash (string-downcase lat) *lat-info-table*))
+ it
+ lat))
+
(defun stt-abbr-info (stt)
(let* ((anc-this-cxn (remove-if-not
(lambda (cxt) (= (1+ i) (cxn cxt))) anc)))
(push
- (sort anc-this-cxn (lambda (a b) (< (rnk a) (rnk b))))
+ (sort anc-this-cxn (lambda (a b) (< (rank a) (rank b))))
anc-lists)))))