anchor.diff:    (:export
   
      ;; Objects
  -   #:object
  +   #:ancestorp
  +   #:childp
  +   #:clone
  +   #:create
      #:defobject
      #:defproto
  -   #:clone
  +   #:descendantp
  +   #:init-object
  +   #:object
  +   #:object-hierarchy-list
  +   #:object-nickname
  +   #:object-parents
      #:objectp
  -   #:object-parents
  -   #:ancestorp
      #:parentp
  -   #:descendantp
  -   #:childp
  -   #:init-object
  +   #:print-sheeple-object
  +   #:reinit-object
      #:shared-init
  -   #:reinit-object
  -   #:print-sheeple-object
  -   #:object-nickname
  -   #:object-hierarchy-list
  -   #:create
   
      ;; Property access
  +   #:available-properties
  +   #:direct-properties
  +   #:direct-property-p
  +   #:direct-property-value
  +   #:property-makunbound
      #:property-value
  -   #:direct-property-value
  -   #:available-properties
  +   #:remove-all-direct-properties
      #:remove-property
  -   #:property-makunbound
  -   #:remove-all-direct-properties
  -   #:direct-property-p
      #:with-properties
  -   #:direct-properties
   
      ;; Messages
  +   #:call-next-reply
  +   #:available-replies
      #:defmessage
      #:defreply
  -   #:available-replies
  +   #:next-reply-p
  +   #:participantp
      #:undefmessage
      #:undefreply
  -   #:participantp
  -   #:call-next-reply
  -   #:next-reply-p
   
      ;; Protos
  -   #:=standard-metaobject=
  -   #:=standard-object=
  -   #:=t=
  +   #:=array=
  +   #:=bit-vector=
  +   #:=boxed-object=
  +   #:=character=
  +   #:=complex=
  +   #:=cons=
  +   #:=float=
  +   #:=function=
  +   #:=hash-table=
  +   #:=integer=
      #:=null=
  -   #:=symbol=
  -   #:=complex=
  -   #:=integer=
  -   #:=float=
  -   #:=cons=
  -   #:=character=
  -   #:=hash-table=
  +   #:=number=
      #:=package=
      #:=pathname=
      #:=readtable=
  +   #:=standard-metaobject=
  +   #:=standard-object=
      #:=stream=
  -   #:=number=
      #:=string=
  -   #:=bit-vector=
  +   #:=symbol=
  +   #:=t=
      #:=vector=
  -   #:=array=
  -   #:=function=
  -   #:=boxed-object=
   
      ;; built-ins
      #:box-type-of
  
positive.code:    #:objectify
  
     ;; Conditions
     #:sheeple-error
     #:sheeple-warning
     #:topological-sort-conflict
     #:object-hierarchy-error
     #:object-property-error
     #:unbound-property
     #:unbound-direct-property
     #:clobbering-function-definition
     #:sheeple-message-error
     #:insufficient-message-args
     #:no-such-message
     #:message-lambda-list-error
     #:sheeple-reply-error
     #:reply-argument-conflict
     #:automatic-message-creation
     #:reply-lambda-list-conflict
     #:no-applicable-reply
     #:no-primary-reply
     #:specialized-lambda-list-error
     #:no-next-reply
     ))
  
  (defpackage #:sheeple-metaobject-protocol
  
negative.code:    #:compute-object-hierarchy-list-using-metaobject
  
     ;; Properties
     :available-properties
     :direct-properties
     :direct-property-p
     :direct-property-value
     :property-makunbound
     :property-owner
     :property-value
     :remove-all-direct-properties
     :remove-all-direct-properties
     :remove-property
     ))
  
  (defpackage #:sheeple-user
  