       
#(#! 
(lisp::in-package (lisp::quote user::compiler))
#(compiler::*level* compiler::*vs* compiler::*max-vs* compiler::vs compiler::*compiler-output1* compiler::cvar compiler::cs compiler::*initial-ccb-vs* compiler::*clink* compiler::*ccb-vs* compiler::*cs* compiler::wt-vs compiler::wt1 (system::%init . #((system::putprop (lisp::quote compiler::vs) (lisp::quote compiler::set-vs) (lisp::quote compiler::set-loc)) (system::putprop (lisp::quote compiler::vs) (lisp::quote compiler::wt-vs) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::vs*) (lisp::quote compiler::wt-vs*) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::ccb-vs) (lisp::quote compiler::wt-ccb-vs) (lisp::quote compiler::wt-loc)) (system::*make-special (lisp::quote compiler::*vs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*vs*)) (lisp::setq compiler::*vs* 0)) (system::*make-special (lisp::quote compiler::*max-vs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*max-vs*)) (lisp::setq compiler::*max-vs* 0)) (system::*make-special (lisp::quote compiler::*clink*)) (lisp::or (lisp::boundp (lisp::quote compiler::*clink*)) (lisp::setq compiler::*clink* lisp::nil)) (system::*make-special (lisp::quote compiler::*ccb-vs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*ccb-vs*)) (lisp::setq compiler::*ccb-vs* 0)) (system::*make-special (lisp::quote compiler::*initial-ccb-vs*)) (system::*make-special (lisp::quote compiler::*level*)) (lisp::or (lisp::boundp (lisp::quote compiler::*level*)) (lisp::setq compiler::*level* 0)) (system::mfsfun (lisp::quote compiler::vs-push) 0 0) (system::mfsfun (lisp::quote compiler::set-vs) 1 2) (system::mfsfun (lisp::quote compiler::wt-vs) 2 1) (system::mfsfun (lisp::quote compiler::wt-vs*) 3 1) (system::mfsfun (lisp::quote compiler::wt-ccb-vs) 4 1) (system::mfsfun (lisp::quote compiler::clink) 5 1) (system::mfvfun (lisp::quote compiler::wt-clink) 6 256) (system::mfsfun (lisp::quote compiler::ccb-vs-push) 7 0) (system::mfsfun (lisp::quote compiler::cvs-push) 8 0) (system::mfsfun (lisp::quote compiler::wt-list) 9 1))))
)
