anchor.diff:     #:lshift #:ashift
      #:& #:ior #:xor #:~
      #:== #:s< #:s<= #:u< #:u<=
  +   #:halt
      ))
   
   (defpackage #:sicl-procedure-integration
  
positive.code:    #: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
  
negative.code:    #:s<-ast #:make-s<-ast
     #:s<=-ast #:make-s<=-ast
     #:u<-ast #:make-u<-ast
     #:u<=-ast #:make-u<=-ast
     #:halt-ast #:make-halt-ast))
  
  (defpackage #:sicl-compiler-phase-1
    (:nicknames #:p1)
  