summaryrefslogtreecommitdiff
path: root/lisp/sql/visastatus.lisp
blob: a4c674452a1cf47a81bb987f9822ed231718ca4b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))

(in-package :resume)

(defclass visastatus (postgres-record)
  ((id :initarg :id
       :initform nil
       :accessor id)
   (status :initarg :status
           :initform nil
           :accessor status)
   (*table :initform "resume.visastatus")
   (*where-expression :initform "id = ~a"))
  (:documentation "Holds the data for a resume.visastatus record."))