diff options
Diffstat (limited to 'lisp/sql')
| -rw-r--r-- | lisp/sql/about-us.lisp | 3 | ||||
| -rw-r--r-- | lisp/sql/general-pkg.lisp | 4 | ||||
| -rw-r--r-- | lisp/sql/generics.lisp | 5 |
3 files changed, 8 insertions, 4 deletions
diff --git a/lisp/sql/about-us.lisp b/lisp/sql/about-us.lisp index ea09ee8..423e413 100644 --- a/lisp/sql/about-us.lisp +++ b/lisp/sql/about-us.lisp @@ -7,6 +7,9 @@ ((id :initarg :id :initform nil :accessor id) + (category :initarg :category + :initform nil + :accessor category) (content :initarg :content :initform nil :accessor content) diff --git a/lisp/sql/general-pkg.lisp b/lisp/sql/general-pkg.lisp index 571bec6..b48ded5 100644 --- a/lisp/sql/general-pkg.lisp +++ b/lisp/sql/general-pkg.lisp @@ -7,8 +7,8 @@ () (:documentation "")) -(defmethod get-about-us ((general-pkg general-pkg)) - (get-record general-pkg (make-instance 'about-us))) +(defmethod get-about-us ((general-pkg general-pkg) category) + (get-record general-pkg (make-instance 'about-us :category category))) (defmethod get-testimonials ((general-pkg general-pkg)) (get-record general-pkg (make-instance 'testimonials))) diff --git a/lisp/sql/generics.lisp b/lisp/sql/generics.lisp index 48c50c7..fea632a 100644 --- a/lisp/sql/generics.lisp +++ b/lisp/sql/generics.lisp @@ -88,8 +88,9 @@ session.")) (:documentation "Creates a new user session and returns the sessionid.")) -(defgeneric get-about-us (record-pkg) - (:documentation "Gets the one and only general.about_us record.")) +(defgeneric get-about-us (record-pkg category) + (:documentation "Gets the one and only general.about_us record with the given +`category'.")) (defgeneric get-testimonials (record-pkg) (:documentation "Gets the one and only general.testimonials record.")) |