       
#(#! 
(lisp::in-package (lisp::quote user::compiler))#! 
(lisp::import (lisp::quote system::switch))#! 
(lisp::import (lisp::quote system::switch-finish))
#(lisp::tag lisp::go compiler::var compiler::*reg-amount* compiler::*tags* :name :ref :ref-ccb :ref-clb compiler::*setjmps* lisp::tagbody lisp::progn compiler::*last-label* compiler::*unwind-exit* compiler::*compiler-output1* compiler::*exit* compiler::*value-to-go* compiler::trash compiler::*vs* compiler::frame compiler::*clink* compiler::*ccb-vs* "The tag name ~s is not a symbol nor an integer." "The tag ~s is undefined." compiler::*info* "case " "" compiler::info lisp::fixnum "default" (compiler::switch-finish-label) system::switch compiler::*inline-blocks* (lisp::fixnum) "switch(#0){" lisp::if lisp::eql (lisp::go lisp::t) (lisp::t) (compiler::switch-finish-label) (lisp::go compiler::switch-finish-label) :switch :var :unwind-exit :label system::structure-subtype-p compiler::jumps-to-p compiler::add-reg1 compiler::make-info compiler::make-tag compiler::c1expr* compiler::add-loop-registers compiler::c1nil compiler::add-object compiler::c2tagbody-ccb compiler::c2tagbody-clb compiler::c2tagbody-local compiler::c2tagbody-body compiler::unwind-exit compiler::wt-switch-case compiler::wt1 compiler::c2expr compiler::vs-push compiler::wt-vs compiler::wt-clink compiler::clink compiler::ccb-vs-push compiler::wt-vs* compiler::too-few-args compiler::too-many-args compiler::cmperr compiler::cb compiler::lb compiler::c2go-ccb compiler::c2go-clb compiler::c2go-local compiler::unwind-no-exit compiler::wt-ccb-vs compiler::c1expr lisp::subtypep compiler::c1tagbody compiler::cmp-macroexpand-1 compiler::inline-args compiler::wt-inline-loc compiler::close-inline-blocks (system::%init . #((system::putprop (lisp::quote lisp::tagbody) (lisp::quote compiler::c1tagbody) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::tagbody) (lisp::quote compiler::c2tagbody) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::go) (lisp::quote compiler::c1go) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::go) (lisp::quote compiler::c2go) (lisp::quote compiler::c2)) (system::define-structure (lisp::quote lisp::tag) (lisp::quote compiler::tag-) (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::label lisp::nil lisp::t lisp::nil 4) (compiler::unwind-exit lisp::nil lisp::t lisp::nil 5) (compiler::var lisp::nil lisp::t lisp::nil 6) (system::switch lisp::nil lisp::t lisp::nil 7))) (lisp::quote compiler::copy-tag) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (compiler::make-tag)) (lisp::quote 8) (lisp::quote compiler::tag-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote compiler::make-tag) 0 4096 1) (system::*make-special (lisp::quote compiler::*tags*)) (lisp::or (lisp::boundp (lisp::quote compiler::*tags*)) (lisp::setq compiler::*tags* lisp::nil)) (system::mfsfun (lisp::quote compiler::jumps-to-p) 2 2) (system::*make-special (lisp::quote compiler::*reg-amount*)) (lisp::or (lisp::boundp (lisp::quote compiler::*reg-amount*)) (lisp::setq compiler::*reg-amount* 60)) (system::mfsfun (lisp::quote compiler::add-reg1) 3 1) (system::mfsfun (lisp::quote compiler::add-loop-registers) 4 1) (system::mfsfun (lisp::quote compiler::c1tagbody) 5 1) (system::mfsfun (lisp::quote compiler::c2tagbody) 6 3) (system::mfsfun (lisp::quote compiler::c2tagbody-local) 7 1) (system::mfsfun (lisp::quote compiler::c2tagbody-body) 8 1) (system::mfsfun (lisp::quote compiler::c2tagbody-clb) 9 1) (system::mfsfun (lisp::quote compiler::c2tagbody-ccb) 10 1) (system::mfsfun (lisp::quote compiler::c1go) 11 1) (system::mfsfun (lisp::quote compiler::c2go) 12 3) (system::mfsfun (lisp::quote compiler::c2go-local) 13 1) (system::mfsfun (lisp::quote compiler::c2go-clb) 14 1) (system::mfsfun (lisp::quote compiler::c2go-ccb) 15 1) (system::mfsfun (lisp::quote compiler::wt-switch-case) 16 1) (system::mfsfun (lisp::quote compiler::c1switch) 17 1) (system::mfsfun (lisp::quote compiler::c2switch) 18 4) (system::putprop (lisp::quote system::switch) (lisp::quote 1) (lisp::quote system::pretty-print-format)) (system::mm (lisp::quote system::switch) 19) (system::mm (lisp::quote system::switch-finish) 20) (system::putprop (lisp::quote system::switch) (lisp::quote compiler::c1switch) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote system::switch) (lisp::quote compiler::c2switch) (lisp::quote compiler::c2)))))
)
