Commit ac40f6e7 authored by ryszard.szopa's avatar ryszard.szopa
Browse files

example updated

parent 2c85e6ee
......@@ -24,8 +24,8 @@
;; PostgreSQL. A person may not have an affiliation, but he or she
;; must have a name. (Not-null is by default set to NIL.)
(defdao person ()
((name :initarg :name :accessor person-name type string :not-null t)
(affiliation :accessor person-affiliation :type affiliation :initform nil
((name :initarg :name :accessor person-name :type string :not-null t)
(affiliation :accessor person-affiliation :type affiliation :foreign t :initform nil
:initarg :affiliation))
(:connection-spec "submarine-test" "richard" "dupa" "localhost"))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment