Проверить слово на палиндром и почти палиндром

(defun isPal (w &optional (k 0))
  (cond ((<= (strLen w) 1) 
         (cond ((zerop k) "палиндром")
               ((= k 1)   "почти палиндром")
               (t "не палиндром")))
        ((= 2 (strLen w)) (if (eq (strLeft w 1) (strRight w 1)) (isPal "" k) (isPal "" (+ k 1))))
        ((eq (strLeft w 1) (strRight w 1)) (isPal (strMid w 2 (- (strLen w) 2)) k))
        (t (isPal (strMid w 2 (- (strLen w) 2)) (+ k 1)))))  
  
==> isPal
 
(isPal "КАВКАЗ")
 
==> "не палиндром"
 
(isPal "КАЗАК")
 
==> "палиндром"
 
(isPal "МЕЧОМ")
 
==> "почти палиндром"

;;racket-lang.org
(define PRECESION 2)
 
(define (is-pal word)
  
  (define (foo lst-wrd lst-wrd-rev counter)
    (if (null? lst-wrd)
        counter
        (foo (cdr lst-wrd)
             (cdr lst-wrd-rev)
             (if (eqv? (car lst-wrd) (car lst-wrd-rev))
                 counter
                 (add1 counter)))))
  
  (if (> (foo (string->list word)
              (reverse (string->list word))
              0)
         PRECESION)
      "неа"
      "ага"))
 
(map is-pal '("КАЗАК" "МЕЧОМ" "МЕШОК" "ВЫШАК"))
;'("ага" "ага" "неа" "неа")