       
#(#! 
(lisp::in-package (lisp::quote user::compiler))
#(compiler::blk lisp::block "The block name ~s is not a symbol." :name :ref :ref-ccb :ref-clb compiler::*blocks* compiler::*setjmps* compiler::*exit* compiler::*value-to-go* compiler::*vs* compiler::*compiler-output1* compiler::fun-val compiler::jump compiler::*unwind-exit* compiler::frame compiler::*clink* compiler::*ccb-vs* lisp::return-from "The block name ~s is not a symbol." "The block ~s is undefined." compiler::top :var :value-to-go :exit compiler::too-few-args compiler::cmperr compiler::make-blk compiler::c1progn compiler::reset-info-type compiler::c2block-ccb compiler::c2block-clb compiler::c2block-local compiler::c2expr compiler::vs-push compiler::wt-vs compiler::unwind-exit compiler::add-symbol compiler::wt-clink compiler::clink compiler::ccb-vs-push compiler::wt-vs* compiler::too-many-args compiler::cb compiler::lb compiler::c1expr compiler::c2return-ccb compiler::c2return-clb compiler::c2return-local compiler::c2expr* compiler::wt-ccb-vs compiler::wt1 (system::%init . #((system::putprop (lisp::quote lisp::block) (lisp::quote compiler::c1block) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::block) (lisp::quote compiler::c2block) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::return-from) (lisp::quote compiler::c1return-from) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::return-from) (lisp::quote compiler::c2return-from) (lisp::quote compiler::c2)) (system::define-structure (lisp::quote compiler::blk) (lisp::quote compiler::blk-) (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-clb lisp::nil lisp::t lisp::nil 2) (compiler::ref-ccb lisp::nil lisp::t lisp::nil 3) (compiler::exit lisp::nil lisp::t lisp::nil 4) (compiler::value-to-go lisp::nil lisp::t lisp::nil 5) (compiler::var lisp::nil lisp::t lisp::nil 6))) (lisp::quote compiler::copy-blk) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (compiler::make-blk)) (lisp::quote 7) (lisp::quote compiler::blk-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote compiler::make-blk) 0 3584 1) (system::*make-special (lisp::quote compiler::*blocks*)) (lisp::or (lisp::boundp (lisp::quote compiler::*blocks*)) (lisp::setq compiler::*blocks* lisp::nil)) (system::mfsfun (lisp::quote compiler::c1block) 2 1) (system::mf (lisp::quote compiler::c2block) 3) (system::mf (lisp::quote compiler::c2block-local) 4) (system::mfsfun (lisp::quote compiler::c2block-clb) 5 2) (system::mfsfun (lisp::quote compiler::c2block-ccb) 6 2) (system::mfsfun (lisp::quote compiler::c1return-from) 7 1) (system::mf (lisp::quote compiler::c2return-from) 8) (system::mf (lisp::quote compiler::c2return-local) 9) (system::mfsfun (lisp::quote compiler::c2return-clb) 10 2) (system::mfsfun (lisp::quote compiler::c2return-ccb) 11 2))))
)
