Two Suspiciously Similar Functions

(defun get-Chinese-zodiac ()
  (format t "~&Please type in your Chinese zodiac affiliation: ")
  (let ((input-Chinese-zodiac (read)))
       (cond ((member input-Chinese-zodiac *chinese-zodiac-names*) input-Chinese-zodiac) ; Success
             (t
               (format t "~&Error: ~S not in the list of Chinese zodiacs. Please try again: ")
               (get-Chinese-zodiac)))))

(defun get-Western-zodiac ()
  (format t "~&Please type in your Western zodiac affiliation: ")
  (let ((input-Western-zodiac (read)))
       (cond ((member input-Western-zodiac *western-zodiac-names*) input-Western-zodiac) ; Success
             (t
               (format t "~&Error: ~S not in the list of Western zodiacs. Please try again: ")
               (get-Western-zodiac)))))