test-relations

Class summary
ca inherits from relatable-class
cb inherits from relation-class
Method summary
copy-object-content (source ca) (target ca)
copy-object-content (source cb) (target cb)
id ca
id cb
print-object (ca ca) stream
print-object (cb cb) stream
ca   inherits from relatable-class  [Class]
:id    [Initarg]
id   ca  [Generic function]

Returns and (with setf) changes the id of the specified ca

cb   inherits from relation-class  [Class]
:id    [Initarg]
id   cb  [Generic function]

Returns and (with setf) changes the id of the specified cb

copy-object-content   (source ca) (target ca)  [Method]
print-object   (ca ca) stream  [Method]
copy-object-content   (source cb) (target cb)  [Method]
print-object   (cb cb) stream  [Method]