From fa7c4554b4c2b4ad70a7c0afbab11b6f0a43d14a Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Mon, 20 Jul 2026 12:19:48 -0600 Subject: stuff --- lisp/sql/resume-pkg.lisp | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lisp/sql') diff --git a/lisp/sql/resume-pkg.lisp b/lisp/sql/resume-pkg.lisp index cc79173..8a7b0fa 100644 --- a/lisp/sql/resume-pkg.lisp +++ b/lisp/sql/resume-pkg.lisp @@ -23,3 +23,9 @@ (defmethod update-resume ((resume-pkg resume-pkg) (resume resume)) (update-record resume-pkg resume)) + +(defmethod delete-resume ((resume-pkg resume-pkg) (resume resume)) + (setf (*table resume) (format nil + "resume.delete_resume(~a)" + (id resume))) + (caar (call-pg-function resume-pkg resume))) -- cgit v1.3