CL learning dictionary

Sup /прог/, or /προγκ/. I wrote this CL code to help myself with learning russian (I'm greek). I want to learn some words but I don't want to write them in sequence because human memory works in funny ways. I don't want preconceptions.

Anyhow, while all this works fine in the slime repl, it goes FUBAR as soon as I save it in a file. What fucking encoding am I supposed to use? With utf-8 I get a bunch of Ξ\255's in the code and as output, and with utf-16 I get compilation errors.

lo and behold,

;; utf-16

(defparameter *ru-gr*
'(("комната" . "δωμάτιο") ; room
("окно" . "παράθυρο") ; window
("кот" . "γάτος") ; cat (male)
("кошка" . "γάτα") ; cat (female)
("буква" . "γράμμα (αλφαβήτου)") ; etc
("холодно" . "κάνει κρύο (επίρρημα)")
("плохо" . "άσχημα (επίρρημα)")
("погода" . "καιρός")
("когда" . "πότε")
("многа" . "πολύ")
("очень" . "πολύ")
("мало" . "λίγο")
("парк" . "πάρκο")
("брат" . "αδερφός")
("сестра" . "αδερφή")
("торт" . "τούρτα")
("рыба" . "ψάρι")
("карма" . "χάρτης")
("группа" . "γκρουπ")
("утро" . "πρωί")
("урок" . "μάθημα")
("подруга" . "φίλη")
("друг" . "φίλος")
("зуб" . "δόντι")
("зубы" . "δόντια")
("горат" . "πόλη")
("муха" . "μύγα")
("собака" . "σκύλος")
("завтра" . "αύριο")
("завтрак" . "πρωϊνό (φαγητό)")
("сын" . "γιος")
("сок" . "χυμός")
("суп" . "σούπα")
("сыр" . "τυρί")
("стол" . "τραπέζι")
("стул" . "καρέκλα")
("звук" . "ήχος")
("слово" . "λέξη")
("сумка" . "τσάντα")
("страна" . "χώρα")
("завод" . "εργοστάσιο")
("рассказ" . "διήγημα")
("автобус" . "λεωφορίο")))

(defparameter *gr-ru*
(mapcar (lambda (x)
(cons (cdr x) (car x)))
*ru-gr*))

(defun exclude (k n)
"Creates a list (0,...,k-1, k+1,...,n), excluding k from it"
(loop for i from 0 to n
when (/= i k)
collect i))

(defun scramble (list)
"Scrambles a list"
(scramble-help list '()))

(defun scramble-help (list acc)
(if list
(let* ((len (length list))
(index (if (= 1 len) 0 (random (1- len))))
(element (nth index list)))
(scramble-help
(mapcar (lambda (x)
(nth x list))
(exclude index (1- len)))
(cons element acc)))
acc))

>>36

People don't vote. Corporations do.

Enjoy your capitalism. The free market always turns into corporate oligarchy, because the biggest players have the biggest chances to get even bigger and eventually take the market under control. It's not "free market" anymore once Apple, Google and Microsoft can dictate what you are going to buy. And it's not a "free country" once they (or other huge transnational corporations) have enough money to dictate what laws you are going to obey.