spam filter

(defparameter *spam* "million")

(defparameter *emails* '("Reset your password"
			 "Happy birthday"
			 "Collect your million dollars now!"))

(defun spam-filter (emails spam)
  "Filter emails and returns a list with good-emails and spam-emails"
  (let ((spam-emails nil)
	(good-emails nil))
    (dolist (email emails)
      (if(search spam email)
	 ;;spam email
	 (push email spam-emails)
	 ;; good email
	 (push email good-emails)))
    ;; finally returns the emails filtered
    (list good-emails spam-emails)))
    
CL-USER> (spam-filter *emails* *spam*)
(("Happy birthday" "Reset your password") ("Collect your million dollars now!"))