From e7301bcd63c0cbfc4d55f21d0d7c33c7557d6444 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sun, 19 Jul 2026 22:05:02 -0600 Subject: starting resume logic --- lisp/sql/resume-pkg.lisp | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 lisp/sql/resume-pkg.lisp (limited to 'lisp/sql/resume-pkg.lisp') diff --git a/lisp/sql/resume-pkg.lisp b/lisp/sql/resume-pkg.lisp new file mode 100644 index 0000000..3c8c289 --- /dev/null +++ b/lisp/sql/resume-pkg.lisp @@ -0,0 +1,19 @@ +;;; -*- 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))) -- cgit v1.3