starting resume logic

1 files changed, 30 insertions, 0 deletions

diff --git a/lisp/sql/language.lisp b/lisp/sql/language.lisp
new file mode 100644
index 0000000..ca384b1
--- /dev/null
+++ b/lisp/sql/language.lisp
@@ -0,0 +1,30 @@
+;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+(declaim (optimize (speed 0) (safety 3) (debug 3)))
+
+(in-package :resume)
+
+(defclass language (postgres-record)
+  ((id :initarg :id
+       :initform nil
+       :accessor id)
+   (name :initarg :name
+         :initform nil
+         :accessor name)
+   (understanding_listening :initarg :understanding_listening
+                            :initform nil
+                            :accessor understanding_listening)
+   (understanding_reading :initarg :understanding_reading
+                          :initform nil
+                          :accessor understanding_reading)
+   (speaking_interaction :initarg :speaking_interaction
+                         :initform nil
+                         :accessor speaking_interaction)
+   (speaking_production :initarg :speaking_production
+                        :initform nil
+                        :accessor speaking_production)
+   (writing :initarg :writing
+            :initform nil
+            :accessor writing)
+   (*table :initform "resume.language")
+   (*where-expression :initform "id = ~a"))
+  (:documentation "Holds the data for a resume.language record."))