Регистрация | Войти
Lisp — программируемый язык программирования
Автор: archimag - 2011-03-04T23:47:30.000000+03:00
(defclass user (store-object)
  ((name :initarg :name
         :index-type string-unique-index
         :index-reader user-with-name
         :index-values all-users
         :reader user-name
)

   (password :initarg :password :accessor user-password)
   (info :initarg :info :initarg nil :accessor user-info)
)

  (:metaclass persistent-class)
)


(defclass article (store-object)
  ((author :initarg :author
           :initform nil
           :reader article-author
           :relaxed-object-reference t
)

   (author-ip :initarg :author-ip :initform nil :reader article-author-ip)
   (date :initarg :author :initform (get-universal-time) :reader aticle-date)
   (content :initarg :content :initform "" :reader article-content)
)

  (:metaclass persistent-class)
)


(defclass page (store-object)
  ((title :initarg :title
          :reader article-title
          :index-type string-unique-index
          :index-reader article-with-title
          :index-values all-articles
)

   (chain :initarg :charin :initform nil :accessor page-article-chain)
)

  (:metaclass persistent-class)
)

  
@2009-2013 lisper.ru