;;; -*- 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 ""))

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