(defun my-reverse (alist)
  (if (null alist)
    nil
    (append
      (my-reverse (cdr alist))
      (list (car alist)))))

(defun my-palindromep (alist)
  (equalp alist (my-reverse alist)))