gistfile1.el

(defun preparse-adverbs (token-list) ;This is the worst way to handle this shit. Ever. Temporary. Very.
  "Yoinks all the adverbs it recognizes out of a list.
MULTIPLE RETURN VALUES: The first adv it finds, and a token-list purified of this evil."
  (if (> (length token-list) 1)
      (let ((adverb (find-if #'adverb-p token-list)))
	(if adverb
	    (let ((token-list (remove-if #'adverb-p token-list :count 1)))
	      (values adverb token-list))
	    (values adverb token-list)))
      (values nil token-list)))