(define (call-with-alist-ref key alist proc #!optional default (test eq?))
  (alist-update! key (proc (alist-ref key alist test default)) alist test))