diff options
Diffstat (limited to 'lisp/sql/resume-pkg.lisp')
| -rw-r--r-- | lisp/sql/resume-pkg.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
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))) |