A small snippet translating lisp keywords into Ukrainian :)

ukr.lisp

; this is just an exercise, I don't want to use it in any serious code :)

(defmacro макрос (&body x)
  `(defmacro ,@x))

(макрос переклад (англ укр)
    `(макрос ,укр (&body параметри) `(,',англ ,@параметри)))

(макрос переклад-розкритого (англ укр)
    (let ((розкрите укр))
    `(макрос ,розкрите (&body параметри) `(,',англ ,@параметри))))

(переклад setf признач)
(переклад list список)
(переклад dolist по-списку)
(переклад car перше-з)
(переклад second друге-з)
(переклад cdr решта-від)
(переклад print друк)
(переклад progn послідовно)
(переклад let хай)
(переклад defvar змінна)

(змінна словник
         '((if якщо)
           (atom атом)
           (cons конс)
           (print друк)
           (do по)
           (dotimes по-значеннях)
           (defun функція)
       (defconst стала)
       (append допис)
       (lambda лямбда)))

(по-списку (пара словник)
       (хай ((розкрите (друге-з пара)))
        (послідовно
          (друк розкрите)
          (переклад (перше-з пара) розкрите))))