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))

Sandniggers love kikes.