diff --git a/src/as2.lisp b/src/as2.lisp index 49aaf46..298c326 100644 --- a/src/as2.lisp +++ b/src/as2.lisp @@ -133,3 +133,25 @@ result origin instrument) + +(defclass collection (object) ()) +(define-property-methods collection + total-items + current + first-as2 + last-as2 + items) + +(defclass ordered-collection (collection) ()) +(define-property-methods ordered-collection + ordered-items) + +(defclass collection-page (collection) ()) +(define-property-methods collection-page + part-of + next + prev) + +(defclass ordered-collection-page (ordered-collection collection-page) ()) +(define-property-methods ordered-collection-page + start-index)