(mapcar function list &rest more-lists)
(defun extract-features (text) (mapcar #'intern-feature (extract-words text)))