anchor.diff:  	       dslots)
   	 (find-class 'effective-property-transform-slot-definition))
   	(t (call-next-method))))))
  +
  +
  +(defmethod get-property ((name symbol) (table bootstrap-metamodel-metaclass))
  +  (find-slot-definition name table))
   
   
   ;;; * UML-Class
  
positive.code: 
  ;;; * Bootstrap Metamodel
  
  (defconstant +package-buffer-extent+ 1)
  
  (defclass bootstrap-metamodel (serialization-model)
    ;; effectively a container for XMI -> Common Lisp transformation
  
negative.code: 
  (defmethod direct-slot-definition-class ((class bootstrap-metamodel-metaclass)
  					 &rest initargs)
    ;; towards a pattern: type-specialized slot definitions
  
    (destructuring-bind (&key type &allow-other-keys)
        initargs
      (cond
        ((subtypep type 'property-table)
         (find-class 'direct-property-transform-slot-definition))
        (t (call-next-method))))
    #+NIL
    (destructuring-bind (&key local-name &allow-other-keys)
        initargs
      (cond
        (local-name
         (find-class 'direct-property-transform-slot-definition))
        (t (call-next-method)))))
  
  