(defun vertausche (liste1 liste2)
    (cond ((null liste1) liste2)
          (t (setq liste2 (cons (car liste1) liste2))
             (vertausche (cdr liste1) liste2))))

(defun palindrom (liste)
  (equal liste (vertausche liste nil)))