summaryrefslogtreecommitdiff
path: root/lisp/sql/education.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/sql/education.lisp')
-rw-r--r--lisp/sql/education.lisp33
1 files changed, 33 insertions, 0 deletions
diff --git a/lisp/sql/education.lisp b/lisp/sql/education.lisp
new file mode 100644
index 0000000..96b5382
--- /dev/null
+++ b/lisp/sql/education.lisp
@@ -0,0 +1,33 @@
+;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+(declaim (optimize (speed 0) (safety 3) (debug 3)))
+
+(in-package :resume)
+
+(defclass education (postgres-record)
+ ((id :initarg :id
+ :initform nil
+ :accessor id)
+ (school :initarg :school
+ :initform nil
+ :accessor school)
+ (start_date :initarg :start_date
+ :initform nil
+ :accessor start_date)
+ (end_date :initarg :end_date
+ :initform nil
+ :accessor end_date)
+ (major :initarg :major
+ :initform nil
+ :accessor major)
+ (minor :initarg :minor
+ :initform nil
+ :accessor minor)
+ (degree :initarg :degree
+ :initform nil
+ :accessor degree)
+ (progress :initarg :progress
+ :initform nil
+ :accessor progress)
+ (*table :initform "resume.education")
+ (*where-expression :initform "id = ~a"))
+ (:documentation "Holds the data for a resume.education record."))