From 85fdf5db522a3e3e841fef4c3dd5ff3a570739ca Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Mon, 27 Jul 2026 20:27:17 -0600 Subject: stuff --- lisp/sql/contactinfo.lisp | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'lisp/sql/contactinfo.lisp') diff --git a/lisp/sql/contactinfo.lisp b/lisp/sql/contactinfo.lisp index efaed37..353a78d 100644 --- a/lisp/sql/contactinfo.lisp +++ b/lisp/sql/contactinfo.lisp @@ -25,15 +25,13 @@ (email :initarg :email :initform nil :accessor email) + (url :initarg :url + :initform nil + :accessor url) (visastatus_id :initarg :visastatus_id :initform nil :accessor visastatus_id) - (*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 + (state_name :initarg :state_name :initform nil :accessor state_name) (state_abbr :initarg :state_abbr @@ -42,6 +40,6 @@ (visastatus :initarg :visastatus :initform nil :accessor visastatus) - (*table :initform "resume.contactinfo_v") + (*table :initform "resume.contactinfo") (*where-expression :initform "id = ~a")) - (:documentation "Holds the data for a resume.contactinfo_v record.")) + (:documentation "Holds the data for a resume.contactinfo record.")) -- cgit v1.3