From 8ab94f4677f8d56655a45bb636917429dcddda24 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Mon, 20 Jul 2026 21:09:54 -0600 Subject: got contact info working --- lisp/sql/contactinfo.lisp | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'lisp/sql/contactinfo.lisp') diff --git a/lisp/sql/contactinfo.lisp b/lisp/sql/contactinfo.lisp index 83c271d..efaed37 100644 --- a/lisp/sql/contactinfo.lisp +++ b/lisp/sql/contactinfo.lisp @@ -7,6 +7,9 @@ ((id :initarg :id :initform nil :accessor id) + (user_id :initarg :user_id + :initform nil + :accessor user_id) (address :initarg :address :initform nil :accessor address) @@ -28,3 +31,17 @@ (*table :initform "resume.contactinfo") (*where-expression :initform "id = ~a")) (:documentation "Holds the data for a resume.contactinfo record.")) + +(defclass contactinfo-v (contactinfo) + ((state_name :initarg :state_name + :initform nil + :accessor state_name) + (state_abbr :initarg :state_abbr + :initform nil + :accessor state_abbr) + (visastatus :initarg :visastatus + :initform nil + :accessor visastatus) + (*table :initform "resume.contactinfo_v") + (*where-expression :initform "id = ~a")) + (:documentation "Holds the data for a resume.contactinfo_v record.")) -- cgit v1.3