(define (sage? a-post) (cond ((symbol=? (post-text a-post) fail) (set! e_mail_field sage)) (else (set! e_mail_field nil))))