LispForum

Hi, (defun titlep (name) (member (first name) '(mr ms miss mrs))) (setq male-first-names '(john kim richard fred george)) (setq female-first-names '(jane mary wanda barbara kim)) (defun malep (name) (and (member name male-first-names) (not (member name female-first-names)))) (defun femalep (name) (a...