chickadee » gromit » define-object-finder

Defines a procedure that finds an object of the specified type using the condition specified. The argument list in the signature consists of argument names and argument types. The argument names can then be used in the conditions.

(define-object-finder (find-email-address
			(local-part  text)
			(domain-part text))
		      email-address
		      `(and (= (@ domain-part) ,domain-part)
			     (= (@ local-part)  ,local-part)
			     (> (@ verified)    ,*some-time*)))