       
#(#! 
(lisp::in-package (lisp::quote user::compiler))
#(compiler::fun lisp::flet compiler::*funs* "The function definition ~s is illegal." :name :ref :ref-ccb compiler::*vars* compiler::cb compiler::*blocks* compiler::*tags* compiler::lb compiler::*next-cfun* compiler::*vs* compiler::*clink* compiler::*ccb-vs* compiler::*level* compiler::*local-funs* compiler::closure compiler::*closures* compiler::*compiler-output1* lisp::labels "The local function definition ~s is illegal." "The function ~s was already defined." lisp::macrolet "The macro definition ~s is illegal." compiler::call-local compiler::*info* compiler::*do-tail-recursion* compiler::*tail-recursion-info* compiler::*exit* lisp::return compiler::*value-to-go* compiler::trash compiler::*last-label* compiler::*unwind-exit* compiler::tail-recursion-mark "Tail-recursive call of ~s was replaced by iteration." compiler::*base-used* compiler::fun-val :level :cfun compiler::too-few-args compiler::cmperr compiler::make-fun compiler::c1body compiler::c1add-globals compiler::check-vdecl compiler::c1decl-body compiler::copy-info compiler::c1lambda-expr compiler::add-info compiler::vs-push compiler::wt-vs compiler::wt1 compiler::wt-clink compiler::clink compiler::ccb-vs-push compiler::c2expr compiler::wt-vs* system::defmacro* compiler::push-args compiler::wt-ccb-vs compiler::tail-recursion-possible compiler::c2psetq compiler::unwind-no-exit compiler::cmpnote compiler::unwind-exit (system::%init . #((system::putprop (lisp::quote lisp::flet) (lisp::quote compiler::c1flet) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::flet) (lisp::quote compiler::c2flet) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::labels) (lisp::quote compiler::c1labels) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::labels) (lisp::quote compiler::c2labels) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::macrolet) (lisp::quote compiler::c1macrolet) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote compiler::call-local) (lisp::quote compiler::c2call-local) (lisp::quote compiler::c2)) (system::define-structure (lisp::quote compiler::fun) (lisp::quote compiler::fun-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote ((compiler::name lisp::nil lisp::t lisp::nil 0) (compiler::ref lisp::nil lisp::t lisp::nil 1) (compiler::ref-ccb lisp::nil lisp::t lisp::nil 2) (lisp::cfun lisp::nil lisp::t lisp::nil 3) (compiler::level lisp::nil lisp::t lisp::nil 4))) (lisp::quote compiler::copy-fun) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (compiler::make-fun)) (lisp::quote 5) (lisp::quote compiler::fun-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote compiler::make-fun) 0 2560 1) (system::*make-special (lisp::quote compiler::*funs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*funs*)) (lisp::setq compiler::*funs* lisp::nil)) (system::mfsfun (lisp::quote compiler::c1flet) 2 1) (system::mf (lisp::quote compiler::c2flet) 3) (system::mfsfun (lisp::quote compiler::c1labels) 4 1) (system::mf (lisp::quote compiler::c2labels) 5) (system::mfsfun (lisp::quote compiler::c1macrolet) 6 1) (system::mfsfun (lisp::quote compiler::c1local-fun) 7 1) (system::mfsfun (lisp::quote compiler::sch-local-fun) 8 1) (system::mfsfun (lisp::quote compiler::c1local-closure) 9 1) (system::mfsfun (lisp::quote compiler::c2call-local) 10 2))))
)
