Public archive for the Return to Ritherdon project.
https://www.nicolaellisandritherdon.com
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Tree:
9650008ce9
master
stable
unstable
${ noResults }
ritherdon-archive/hunchentoot-example/src/models/user.lisp
27 lines
566 B
27 lines
566 B
(in-package :ritherdon-archive/models)
|
|||
|
|||
(defclass user ()
|
|||
((username
|
|||
:accessor username
|
|||
:initarg :username
|
|||
:initform nil
|
|||
:type (or string null)
|
|||
:col-type :text)
|
|||
|
|||
(display-name
|
|||
:accessor display-name
|
|||
:initarg :display-name
|
|||
:initform nil
|
|||
:type (or string null)
|
|||
:col-type :text)
|
|||
|
|||
(password
|
|||
:accessor password
|
|||
:initarg :password
|
|||
:initform nil
|
|||
:type (or string null)
|
|||
:col-type :text))
|
|||
|
|||
(:metaclass mito:dao-table-class)
|
|||
(:documentation "Account information for users to log-in to the website.."))
|