anchor.diff:  
   (defmethod direct-slot-definition-class ((class bootstrap-metamodel-metaclass)
   					 &rest initargs)
  -  (destructuring-bind (&key source-local-name &allow-other-keys)
  +  ;; towards a pattern: type-specialized slot definitions
  +
  +  (destructuring-bind (&key type &allow-other-keys)
         initargs
       (cond
  -      (source-local-name
  +      ((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)))))
   
  
positive.code:    ))
  
  
  ;;; * Slot Definitions
  
  
  (defclass property-transform-slot-definition
      (metamodel-transform slot-definition)
    ())
  
  
negative.code: 
  ;;; * Bootstrap Metamodel
  
  (defconstant +package-buffer-extent+ 1) ;; FIXME: usage ?
  
  (defclass bootstrap-metamodel (serialization-model)
    ;; effectively a container for XMI -> Common Lisp transformation
  