diff options
Diffstat (limited to 'lisp/sql')
| -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.")) |