From 8200616946c74bfd1221a3904776f47178eb0247 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Mon, 20 Jul 2026 08:22:51 -0600 Subject: stuff --- lisp/sql/resume-pkg.lisp | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lisp/sql/resume-pkg.lisp') diff --git a/lisp/sql/resume-pkg.lisp b/lisp/sql/resume-pkg.lisp index 3c8c289..cc79173 100644 --- a/lisp/sql/resume-pkg.lisp +++ b/lisp/sql/resume-pkg.lisp @@ -11,9 +11,15 @@ (let ((resume (make-instance 'resume :user_id (id user)))) (get-records resume-pkg resume "name asc"))) +(defmethod get-resume ((resume-pkg resume-pkg) (resume resume)) + (get-record resume-pkg resume)) + (defmethod insert-resume ((resume-pkg resume-pkg) (resume resume)) (setf (*table resume) (format nil "resume.insert_resume(~a, '~a')" (user_id resume) (name resume))) (caar (call-pg-function resume-pkg resume))) + +(defmethod update-resume ((resume-pkg resume-pkg) (resume resume)) + (update-record resume-pkg resume)) -- cgit v1.3