#;1323> (alist-ref 'foo alist)
bar
#;1347> (alist-ref 'xyzzy alist)
#f
#;1356> (alist-ref 'plugh alist)
#f
#;1362> (cond ((alist-ref 'foo alist) => (lambda (val) 'yea)) (else 'nay))
yea
#;1443> (cond ((alist-ref 'xyzzy alist) => (lambda (val) 'yea)) (else 'nay))
nay
#;1449> (cond ((alist-ref 'plugh alist) => (lambda (val) 'yea)) (else 'nay))
nay
#;1456>