(define-symbol-macro нет nil)
(define-symbol-macro да  t)

(defun антонирована-ли? (строка)
  (let ((позиция 0)
        (край (length строка))
        (ширус (coerce "anton" 'list)))
    (tagbody
     поиск
       (if (char= (car ширус)
                  (schar строка позиция))
           (go попался-сука)
           (go смотрим-дальше))
     смотрим-дальше
       (if (= (incf позиция) край)
           (return-from антонирована-ли? Нет)
           (go поиск))
     попался-сука
       (if (setf ширус (cdr ширус))
           (go смотрим-дальше)
           (return-from антонирована-ли? Да)))))

(format t "~:[Ширусов не найдено~;Achtung! Обнаружен anton в строк~:*~{~#[~;е номер ~a~:;ах с номерами: ~@{~a~^, ~}~]~}~]"
  (loop :for номер :upfrom 1
        :for строка := (read-line t nil) :while строка
        :if (антонирована-ли? строка)
            :collect номер))