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

[Levente Mészáros]

2008/12/10 Makarov Alexey <alexeys9 at mail.ru>:
>
> 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]
Some of your systems must be out of date, the exact code you have sent
runs without problems.
Double check that cl-perec dependencies are up to date (especially
cl-rdbms and computed-class).
Remove all fasl files.
If none of the above helps, give us more details of the error.

PRCT> (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)))

#<PERSISTENT-CLASS EMPLOYEE>

PRCT> (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)))

#<PERSISTENT-CLASS PROJECT>
PRCT> (defassociation
  ((:class project :slot members :type (set employee) :accessor
members-of :initarg :members)
   (:class employee :slot project :type project :accessor project-of
:initarg :project)))

PROJECT~MEMBERS~EMPLOYEE~PROJECT

PRCT> (start-sql-recording)
; No value

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

; BEGIN
; SELECT _o._oid, _o._code, _o._short_name, _o._full_name FROM _project_ap _o
; COMMIT
NIL

levy

-- 
There's no perfectoin