diff options
Diffstat (limited to 'lisp/sql/contactinfo.lisp')
| -rw-r--r-- | lisp/sql/contactinfo.lisp | 17 |
1 files changed, 17 insertions, 0 deletions
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.")) |