anchor.diff:  
   ;;; * Bootstrap Metamodel
   
  -(defconstant +package-buffer-extent+ 1)
  +(defconstant +package-buffer-extent+ 1) ;; FIXME: usage ?
   
   (defclass bootstrap-metamodel (serialization-model)
     ;; effectively a container for XMI -> Common Lisp transformation
  
positive.code:    ))
  
  
  ;;; * Slot Definitions
  
  
  (defclass property-transform-slot-definition
      (metamodel-transform slot-definition)
    ())
  
  
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)))))
  
  