anchor.diff:                               (length (remove-duplicates types))))
            (attach-args-permutations
             (and attachp (permutations (generate-attach-parameters endpoints))))
  -         (link            (intern (format nil "~A-LINK"   name)))
  -         (unlink          (intern (format nil "~A-UNLINK" name)))
  -         (contains-p      (intern (format nil "~A-CONTAINS-P" name))))
  +         (link            (scat name '-link))
  +         (unlink          (scat name '-unlink))
  +         (contains-p      (scat name '-contains-p)))
   
       `(progn
          ,@(loop
  
positive.code:   (:shadowing-import-from "CLOSER-MOP"
                            "STANDARD-CLASS" "STANDARD-GENERIC-FUNCTION" "STANDARD-METHOD"
                            "DEFMETHOD" "DEFGENERIC")
    (:export "DEFINE-CLASS" "DEFINE-ASSOCIATION" "CHECK-OBJECT" "CHECK-CHAIN"))
  (in-package "COM.INFORMATIMAGO.CLEXT.ASSOCIATION")
  
  
  
negative.code:     class))
  
  
  (defun scat (&rest string-designators)
    (intern (apply (function concatenate) 'string
                   (mapcar (function string) string-designators))))
  
  
  (defmacro define-association (name endpoints &rest options)
    "
  Define functions to manage the association:
  