[Initial weblog-entry class
clinton@unknownlamer.org**20081209063521] hunk ./src/packages.lisp 26
-  (:use :cl)
-  (:export ))
+  (:use :cl :elephant)
+  (:export
+   ;; Entries
+   #:weblog-entry
+   #:entry-title
+   #:entry-author
+   #:entry-posted
+   #:entry-body))
hunk ./src/weblog.lisp 2
+
+(defpclass weblog-entry ()
+  ((title :initarg :title :accessor entry-title)
+   (author :initarg :author :accessor entry-author :index t)
+   (posted :initarg :posted :accessor entry-posted :index t)
+   (body :initarg :body :accessor entry-body)))