[Cl-perec-devel] Problem with one-to-many association type

[Makarov Alexey]

Hello!

I have two classes:

(defpclass employee ()
  ((first-name :initarg :name :type string :accessor name-of)
   (second-name :initarg :second-name type string :accessor
second-name-of)
   (third-name :initarg :third-name :type string :accessor
third-name-of)))

(defpclass project ()
  ((code :initarg :code :type string :accessor code-of)
   (short-name :initarg :short-name :type string :accessor name-of)
   (full-name :initarg :full-name :type string :accessor full-name-of)))

I define association (one-to-many), and can't work with this classes any
more because of error:

(defassociation
  ((:class project :slot members :type (set employee) :accessor
members-of :initarg :members)
   (:class employee :slot project :type project :accessor
project-of :initarg :project)))

query:

(with-transaction
    (select (o)
        (from (o project))))

appear this error:

There is no applicable method for the generic function
  #<STANDARD-GENERIC-FUNCTION (SETF CL-RDBMS::UNIQUE-P) (1)>
when called with arguments
  (T NIL).
   [Condition of type SIMPLE-ERROR]

I'm use fresh cl-rdbms and fresh cl-perec.
How to solve this error and use one-to-many association?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-perec-devel/attachments/20081210/abe67bce/attachment.html>