Add classes

2024-10-04 12:01:17 +02:00 · 2024-10-04 12:01:17 +02:00 · 3f9821b308
commit 3f9821b308
parent c7a48e3d85
1 changed files with 22 additions and 0 deletions
--- 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)