Change defstruct into cl-defstruct.
Rewrite entry< using cl-loop.