;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))

(in-package :resume)

(defclass resume-pkg (record-pkg)
  ()
  (:documentation ""))

(defmethod get-all-resumes-for-user ((resume-pkg resume-pkg) (user user))
    (let ((resume (make-instance 'resume :user_id (id user))))
      (get-records resume-pkg resume "name asc")))

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