stuff

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))