Hi,

Just a minor point, but can the idiom code
(let ((key (ephemeron-key ephemeron))
      (datum (ephemeron-datum ephemeron)))
  (if (ephemeron-broken? ephemeron)
      ... broken case ...
      ... code using key and datum ...))
be:
(let ((key (ephemeron-key ephemeron)))
  (if (ephemeron-broken? ephemeron-broken)
      ... broken case ...
      (let ((datum (ephemeron-datum ephemeron)))
        ... code using key and datum ...)))
in order to spare the useless access to datum when the ephemeron
has already been broken?

Cheers,
-- Takeshi Abe