anchor.diff:    (:use :cl)
     (:shadow :make-hash-table)
     (:export
  +   #:cancel-finalization
  +   #:finalize
      #:gc
  -   #:weak-pointer
  +   #:hash-table-weakness
  +   #:make-weak-hash-table
      #:make-weak-pointer
  -   #:weak-pointer-value
  -   #:weak-pointer-p
      #:maybe-make-weak-pointer
      #:maybe-weak-pointer-value
  -   #:make-weak-hash-table
  -   #:hash-table-weakness
  -   #:finalize
  -   #:cancel-finalization
  +   #:weak-pointer
  +   #:weak-pointer-p
  +   #:weak-pointer-value
      ))
   
   (defpackage #:sheeple
  
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:   (:export
  
     ;; Objects
     #:ancestorp
     #:childp
     #:clone
     #:create
     #:defobject
     #:defproto
     #:descendantp
     #:init-object
     #:object
     #:object-hierarchy-list
     #:object-nickname
     #:object-parents
     #:objectp
     #:parentp
     #:print-sheeple-object
     #:reinit-object
     #:shared-init
  
     ;; Property access
     #:available-properties
     #:direct-properties
     #:direct-property-p
     #:direct-property-value
     #:property-makunbound
     #:property-value
     #:remove-all-direct-properties
     #:remove-property
     #:with-properties
  
     ;; Messages
     #:call-next-reply
     #:available-replies
     #:defmessage
     #:defreply
     #:next-reply-p
     #:participantp
     #:undefmessage
     #:undefreply
  
     ;; Protos
     #:=array=
     #:=bit-vector=
     #:=boxed-object=
     #:=character=
     #:=complex=
     #:=cons=
     #:=float=
     #:=function=
     #:=hash-table=
     #:=integer=
     #:=null=
     #:=number=
     #:=package=
     #:=pathname=
     #:=readtable=
     #:=standard-metaobject=
     #:=standard-object=
     #:=stream=
     #:=string=
     #:=symbol=
     #:=t=
     #:=vector=
  
     ;; built-ins
     #:box-type-of
  