;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) (in-package :resume) (defclass job (postgres-record) ((id :initarg :id :initform nil :accessor id) (company :initarg :company :initform nil :accessor company) (location :initarg :location :initform nil :accessor location) (start_date :initarg :start_date :initform nil :accessor start_date) (end_date :initarg :end_date :initform nil :accessor end_date) (overview :initarg :overview :initform nil :accessor overview) (*table :initform "resume.job") (*where-expression :initform "id = ~a")) (:documentation "Holds the data for a resume.job record."))