Вот два варианта конструкторов для рамок:
(defn make-frame
[origin edge1 edge2]
(list origin edge1 edge2))
(defn make-frame
[origin edge1 edge2]
(cons origin (cons edge1 edge2)))
К каждому из этих конструкторов добавьте соответствующие селекторы, так, чтобы получить реализацию рамок.