:db-constraints :not-null
:type integer
:initarg :groupid)
+ (title
+ :accessor title
+ :type symbol
+ :initarg :title)
(first-name
:accessor first-name
:type (varchar 30)
:emplid 1
:groupid 1
:married t
+ :title 'supplicant
:height (1+ (random 1.00))
:bd-utime *test-start-utime*
:birthday now-time
employee2 (make-instance 'employee
:emplid 2
:groupid 1
+ :title :adherent
:height (1+ (random 1.00))
:married t
:bd-utime *test-start-utime*
employee3 (make-instance 'employee
:emplid 3
:groupid 1
+ :title 'cl-user::novice
:height (1+ (random 1.00))
:married t
:bd-utime *test-start-utime*