anchor.diff:      (error "The association ~A needs at least two endpoints." name))
     (assert (= 2 (length endpoints)) ()
             "Sorry, associations with more than two endpoints such ~
  -           as ~A are not implemented yet." name)
  +            as ~A are not implemented yet." name)
     (let* ((link-parameters (generate-link-parameters endpoints))
            (link-arguments  (generate-link-arguments  endpoints))
            (types           (loop :for endpoint :in endpoints
  
positive.code:               t))
         ,@ (when attachp
              (let ((link-arguments
                     (generate-link-arguments (first attach-args-permutations))))
                (mapcar (lambda (arguments)
                          (let ((arguments (cons `(asso (eql ',name)) arguments)))
                            `(progn
  
negative.code: 
  ORDERED        boolean indicating whether the objects are ordered in the containers
                 (only for REFERENCE, LIST, VECTOR and REIFIED).
  
  
  OPTIONS        a list of (:keyword ...) options.
     (:DOCUMENTATION string)
  
  