;;; Глобальные константы
(defconstant +glasn+ '(#\А #\Е #\Ё #\И #\О #\У #\Ы #\Э #\Ю #\Я #\а #\е #\ё #\и #\о #\у #\ы #\э #\ю #\я)
  "Список гласных букв")
(defconstant +sonorn+ '(#\Л #\М #\Н #\Р #\л #\м #\н #\р #\Й #\й)
  "Список сонорных согласных букв")
 
;;; Проверка гласной
(defun glasn (char)
  (member char +glasn+ :test #'char-equal))
 
;;; Проверка сонорного согласного
(defun sonorn (char)
  (member char +sonorn+ :test #'char-equal))
 
;;; Проверка шумного согласного (не гласная и не сонорная)
(defun shumn (char)
  (and (characterp char)
       (not (glasn char))
       (not (sonorn char))))
 
;;; Разбиение слова на слоги (упрощённый и исправленный вариант)
(defun razbit-na-slogi (word)
  (let ((slogi '())
        (current-slog '()))
    (labels ((add-slog ()
               (when current-slog
                 (push (coerce (nreverse current-slog) 'string) slogi)
                 (setf current-slog '()))))
      (dotimes (i (length word))
        (let ((char (char word i)))
          (push char current-slog)
          (when (glasn char)
            (if (<= (length current-slog) 1)
                (add-slog)
                (let* ((rev-slog (reverse current-slog))
                       (last1 (nth 0 rev-slog))  ; последний символ (гласная)
                       (last2 (nth 1 rev-slog))) ; предпоследний символ
                  (cond
                    ;; Два шумных подряд - последний переходит в следующий слог
                    ((and (shumn last1) (shumn last2))
                     (push last1 rev-slog) ;; возвращаем последний назад
                     (setf current-slog (list last1))
                     (add-slog))
                    ;; Два сонорных подряд, кроме 'й' - последний переходит в следующий слог
                    ((and (sonorn last1) (sonorn last2) (not (char-equal last1 #\й)))
                     (push last1 rev-slog)
                     (setf current-slog (list last1))
                     (add-slog))
                    ;; Иначе разделяем здесь
                    (t (add-slog))))))))
      ;; Добавляем последний слог, если остался
      (when current-slog
        (push (coerce (nreverse current-slog) 'string) slogi))
      ;; Возвращаем слоги в правильном порядке
      (nreverse slogi))))
    (razbit-na-slogi "программа") ;; => ("про" "гра" "мма")
	(razbit-na-slogi "словарь") ;; => ("сло" "варь")

Ozs7INCT0LvQvtCx0LDQu9GM0L3Ri9C1INC60L7QvdGB0YLQsNC90YLRiwooZGVmY29uc3RhbnQgK2dsYXNuKyAnKCNc0JAgI1zQlSAjXNCBICNc0JggI1zQniAjXNCjICNc0KsgI1zQrSAjXNCuICNc0K8gI1zQsCAjXNC1ICNc0ZEgI1zQuCAjXNC+ICNc0YMgI1zRiyAjXNGNICNc0Y4gI1zRjykKICAi0KHQv9C40YHQvtC6INCz0LvQsNGB0L3Ri9GFINCx0YPQutCyIikKKGRlZmNvbnN0YW50ICtzb25vcm4rICcoI1zQmyAjXNCcICNc0J0gI1zQoCAjXNC7ICNc0LwgI1zQvSAjXNGAICNc0JkgI1zQuSkKICAi0KHQv9C40YHQvtC6INGB0L7QvdC+0YDQvdGL0YUg0YHQvtCz0LvQsNGB0L3Ri9GFINCx0YPQutCyIikKCjs7OyDQn9GA0L7QstC10YDQutCwINCz0LvQsNGB0L3QvtC5CihkZWZ1biBnbGFzbiAoY2hhcikKICAobWVtYmVyIGNoYXIgK2dsYXNuKyA6dGVzdCAjJ2NoYXItZXF1YWwpKQoKOzs7INCf0YDQvtCy0LXRgNC60LAg0YHQvtC90L7RgNC90L7Qs9C+INGB0L7Qs9C70LDRgdC90L7Qs9C+CihkZWZ1biBzb25vcm4gKGNoYXIpCiAgKG1lbWJlciBjaGFyICtzb25vcm4rIDp0ZXN0ICMnY2hhci1lcXVhbCkpCgo7Ozsg0J/RgNC+0LLQtdGA0LrQsCDRiNGD0LzQvdC+0LPQviDRgdC+0LPQu9Cw0YHQvdC+0LPQviAo0L3QtSDQs9C70LDRgdC90LDRjyDQuCDQvdC1INGB0L7QvdC+0YDQvdCw0Y8pCihkZWZ1biBzaHVtbiAoY2hhcikKICAoYW5kIChjaGFyYWN0ZXJwIGNoYXIpCiAgICAgICAobm90IChnbGFzbiBjaGFyKSkKICAgICAgIChub3QgKHNvbm9ybiBjaGFyKSkpKQoKOzs7INCg0LDQt9Cx0LjQtdC90LjQtSDRgdC70L7QstCwINC90LAg0YHQu9C+0LPQuCAo0YPQv9GA0L7RidGR0L3QvdGL0Lkg0Lgg0LjRgdC/0YDQsNCy0LvQtdC90L3Ri9C5INCy0LDRgNC40LDQvdGCKQooZGVmdW4gcmF6Yml0LW5hLXNsb2dpICh3b3JkKQogIChsZXQgKChzbG9naSAnKCkpCiAgICAgICAgKGN1cnJlbnQtc2xvZyAnKCkpKQogICAgKGxhYmVscyAoKGFkZC1zbG9nICgpCiAgICAgICAgICAgICAgICh3aGVuIGN1cnJlbnQtc2xvZwogICAgICAgICAgICAgICAgIChwdXNoIChjb2VyY2UgKG5yZXZlcnNlIGN1cnJlbnQtc2xvZykgJ3N0cmluZykgc2xvZ2kpCiAgICAgICAgICAgICAgICAgKHNldGYgY3VycmVudC1zbG9nICcoKSkpKSkKICAgICAgKGRvdGltZXMgKGkgKGxlbmd0aCB3b3JkKSkKICAgICAgICAobGV0ICgoY2hhciAoY2hhciB3b3JkIGkpKSkKICAgICAgICAgIChwdXNoIGNoYXIgY3VycmVudC1zbG9nKQogICAgICAgICAgKHdoZW4gKGdsYXNuIGNoYXIpCiAgICAgICAgICAgIChpZiAoPD0gKGxlbmd0aCBjdXJyZW50LXNsb2cpIDEpCiAgICAgICAgICAgICAgICAoYWRkLXNsb2cpCiAgICAgICAgICAgICAgICAobGV0KiAoKHJldi1zbG9nIChyZXZlcnNlIGN1cnJlbnQtc2xvZykpCiAgICAgICAgICAgICAgICAgICAgICAgKGxhc3QxIChudGggMCByZXYtc2xvZykpICA7INC/0L7RgdC70LXQtNC90LjQuSDRgdC40LzQstC+0LsgKNCz0LvQsNGB0L3QsNGPKQogICAgICAgICAgICAgICAgICAgICAgIChsYXN0MiAobnRoIDEgcmV2LXNsb2cpKSkgOyDQv9GA0LXQtNC/0L7RgdC70LXQtNC90LjQuSDRgdC40LzQstC+0LsKICAgICAgICAgICAgICAgICAgKGNvbmQKICAgICAgICAgICAgICAgICAgICA7OyDQlNCy0LAg0YjRg9C80L3Ri9GFINC/0L7QtNGA0Y/QtCAtINC/0L7RgdC70LXQtNC90LjQuSDQv9C10YDQtdGF0L7QtNC40YIg0LIg0YHQu9C10LTRg9GO0YnQuNC5INGB0LvQvtCzCiAgICAgICAgICAgICAgICAgICAgKChhbmQgKHNodW1uIGxhc3QxKSAoc2h1bW4gbGFzdDIpKQogICAgICAgICAgICAgICAgICAgICAocHVzaCBsYXN0MSByZXYtc2xvZykgOzsg0LLQvtC30LLRgNCw0YnQsNC10Lwg0L/QvtGB0LvQtdC00L3QuNC5INC90LDQt9Cw0LQKICAgICAgICAgICAgICAgICAgICAgKHNldGYgY3VycmVudC1zbG9nIChsaXN0IGxhc3QxKSkKICAgICAgICAgICAgICAgICAgICAgKGFkZC1zbG9nKSkKICAgICAgICAgICAgICAgICAgICA7OyDQlNCy0LAg0YHQvtC90L7RgNC90YvRhSDQv9C+0LTRgNGP0LQsINC60YDQvtC80LUgJ9C5JyAtINC/0L7RgdC70LXQtNC90LjQuSDQv9C10YDQtdGF0L7QtNC40YIg0LIg0YHQu9C10LTRg9GO0YnQuNC5INGB0LvQvtCzCiAgICAgICAgICAgICAgICAgICAgKChhbmQgKHNvbm9ybiBsYXN0MSkgKHNvbm9ybiBsYXN0MikgKG5vdCAoY2hhci1lcXVhbCBsYXN0MSAjXNC5KSkpCiAgICAgICAgICAgICAgICAgICAgIChwdXNoIGxhc3QxIHJldi1zbG9nKQogICAgICAgICAgICAgICAgICAgICAoc2V0ZiBjdXJyZW50LXNsb2cgKGxpc3QgbGFzdDEpKQogICAgICAgICAgICAgICAgICAgICAoYWRkLXNsb2cpKQogICAgICAgICAgICAgICAgICAgIDs7INCY0L3QsNGH0LUg0YDQsNC30LTQtdC70Y/QtdC8INC30LTQtdGB0YwKICAgICAgICAgICAgICAgICAgICAodCAoYWRkLXNsb2cpKSkpKSkpKQogICAgICA7OyDQlNC+0LHQsNCy0LvRj9C10Lwg0L/QvtGB0LvQtdC00L3QuNC5INGB0LvQvtCzLCDQtdGB0LvQuCDQvtGB0YLQsNC70YHRjwogICAgICAod2hlbiBjdXJyZW50LXNsb2cKICAgICAgICAocHVzaCAoY29lcmNlIChucmV2ZXJzZSBjdXJyZW50LXNsb2cpICdzdHJpbmcpIHNsb2dpKSkKICAgICAgOzsg0JLQvtC30LLRgNCw0YnQsNC10Lwg0YHQu9C+0LPQuCDQsiDQv9GA0LDQstC40LvRjNC90L7QvCDQv9C+0YDRj9C00LrQtQogICAgICAobnJldmVyc2Ugc2xvZ2kpKSkpCiAgICAocmF6Yml0LW5hLXNsb2dpICLQv9GA0L7Qs9GA0LDQvNC80LAiKSA7OyA9PiAoItC/0YDQviIgItCz0YDQsCIgItC80LzQsCIpCgkocmF6Yml0LW5hLXNsb2dpICLRgdC70L7QstCw0YDRjCIpIDs7ID0+ICgi0YHQu9C+IiAi0LLQsNGA0YwiKQ==