Plaster
New
List
Login
common-lisp
default
anonymous
2021.06.26 15:56:04
(defclass product () ((name :accessor name :initarg :name) (subproducts :accessor subproducts :initarg :subproducts) (product-timeline :accessor product-timeline :initarg :product-timeline) (parent-product :accessor parent-product :initarg :parent-product))) (defclass product-timeline () ((prices :accessor prices))) (defclass price () ((period-representations :accessor periods :initarg :periods :documentation "A list of representations ie :one-month '1' 1 or :forever '9999' 'forever' etc") (prices :accessor prices :initarg :prices :documentation "list of currency objects. Prices in various fiat currencies."))) (defclass currency () ((currency :accessor currency :initarg :currency) (currency-s :reader currency-s) (price :accessor price :initarg :price) (price-s :reader price-s)))
Raw
Annotate
Repaste
Edit