[Cl-perec-devel] Associations and auxiliary information

[Leslie P. Polzer]

> (defassociation*
>   ((:class basket :slot products-in-basket :type (set products-in-basket))
>    (:class products-in-basket :slot basket :type basket)))
>   (quantity :type integer-16))

Err... that should read:

(defassociation*
  ((:class basket :slot products :type (set products))
   (:class product :slot basket :type basket)))
  (quantity :type integer-16))

of course.

  Leslie