anchor.diff:     #:constant-ast #:make-constant-ast #:value
      #:call-ast #:make-call-ast #:callee-ast #:argument-asts
      #:block-ast #:make-block-ast #:body
  -   #:catch-ast #:make-catch-ast #:tag 
      #:eval-when-ast #:make-eval-when-ast #:situations
      #:function-ast #:make-function-ast #:body-ast
      #:go-ast #:make-go-ast #:tag-ast
  
positive.code:   (:nicknames #:sicl-env)
    (:use #:common-lisp)
    (:shadow #:type
  	   #:proclaim
  	   #:macroexpand-1
  	   #:macroexpand
  	   #:macro-function
  	   #:*macroexpand-hook*
  	   )
    (:export
     #:definition
  
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)
  