<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.24.1">
</HEAD>
<BODY>
Hello!<BR>
<BR>
I have two classes:<BR>
<BR>
<I>(defpclass employee ()</I><BR>
<I> ((first-name :initarg :name :type string :accessor name-of)</I><BR>
<I> (second-name :initarg :second-name type string :accessor second-name-of)</I><BR>
<I> (third-name :initarg :third-name :type string :accessor third-name-of)))</I><BR>
<BR>
<I>(defpclass project ()</I><BR>
<I> ((code :initarg :code :type string :accessor code-of)</I><BR>
<I> (short-name :initarg :short-name :type string :accessor name-of)</I><BR>
<I> (full-name :initarg :full-name :type string :accessor full-name-of)))</I><BR>
<BR>
I define association (one-to-many), and can't work with this classes any more because of error:<BR>
<BR>
<I>(defassociation</I><BR>
<I> ((:class project :slot members :type (set employee) :accessor members-of :initarg :members)</I><BR>
<I> (:class employee :slot project :type project :accessor project-of :initarg :project)))</I><BR>
<BR>
query:<BR>
<BR>
<I>(with-transaction</I><BR>
<I> (select (o)</I><BR>
<I> (from (o project))))</I><BR>
<BR>
appear this error:<BR>
<BR>
<B>There is no applicable method for the generic function</B><BR>
<B> #<STANDARD-GENERIC-FUNCTION (SETF CL-RDBMS::UNIQUE-P) (1)></B><BR>
<B>when called with arguments</B><BR>
<B> (T NIL).</B><BR>
<B> [Condition of type SIMPLE-ERROR]</B><BR>
<BR>
I'm use fresh cl-rdbms and fresh cl-perec.<BR>
How to solve this error and use one-to-many association?
</BODY>
</HTML>