(define (alist-merge l1 l2) (fold-right (lambda (a l) (alist-update! (car a) (cdr a) l)) (alist-copy l2) l1))