diff options
Diffstat (limited to 'lisp/sql')
| -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 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)) |