From 26a106b0d9687be8448e37658887c8bc2937804e Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Tue, 18 Aug 2026 20:00:23 -0600 Subject: notification cleanup and message marking --- lisp/sql/contact-pkg.lisp | 1 + 1 file changed, 1 insertion(+) (limited to 'lisp/sql') diff --git a/lisp/sql/contact-pkg.lisp b/lisp/sql/contact-pkg.lisp index dce6384..207708c 100644 --- a/lisp/sql/contact-pkg.lisp +++ b/lisp/sql/contact-pkg.lisp @@ -23,6 +23,7 @@ (caar (call-pg-function contact-pkg contact-us-post))) (defmethod mark-contact-us-post ((contact-pkg contact-pkg) contact-us-post-id user-id read-p) + (let ((contact-us-post (make-instance 'contact-us-post :*table (format nil "contact.mark_contact_us_post(~a, ~a, '~a')" -- cgit v1.3