anchor.diff:     #:tagbody-ast #:make-tagbody-ast #:items
      #:tag-ast #:make-tag-ast #:name
      #:the-ast #:make-the-ast #:value-type
  -   #:throw-ast #:make-throw-ast
  -   #:unwind-protect-ast
  -   #:make-unwind-protect-ast #:protected-ast #:cleanup-form-asts
      #:draw-ast
      #:children
      #:word-ast #:make-word-ast
  
positive.code:    #:lshift #:ashift
     #:& #:ior #:xor #:~
     #:== #:s< #:s<= #:u< #:u<=
     ))
  
  (defpackage #:sicl-procedure-integration
  
negative.code:    #:global-location-info
     #:function-info
     #:variable-info
     #:fdefinition
     #:fboundp
     #:fmakunbound
     ))
  
  (defpackage #:sicl-ast
  