got contact info working

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."))