diff options
| author | ckonstanski <kostcarl@isu.edu> | 2026-07-27 20:27:17 -0600 |
|---|---|---|
| committer | ckonstanski <kostcarl@isu.edu> | 2026-07-27 20:27:17 -0600 |
| commit | 85fdf5db522a3e3e841fef4c3dd5ff3a570739ca (patch) | |
| tree | fbaa0f9060956c0d67b8fc7fef58030ef64c55b0 /lisp/sql/contactinfo.lisp | |
| parent | 7a902d7dec9e0ea2a35610bebac2e217340deb40 (diff) | |
stuff
Diffstat (limited to 'lisp/sql/contactinfo.lisp')
| -rw-r--r-- | lisp/sql/contactinfo.lisp | 14 |
1 files changed, 6 insertions, 8 deletions
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.")) |