#(#! (lisp::in-package (lisp::quote user::compiler)) #((lisp::cons (lisp::incf compiler::*last-label*) lisp::nil) (lisp::cons (lisp::incf compiler::*last-label*) lisp::t) lisp::when lisp::cdr compiler::wt-nl "goto T" lisp::car ";" compiler::wt-nl1 "T" ":;" lisp::progn lisp::rplacd compiler::wt "goto T" ";" compiler::*inline-blocks* compiler::*compiler-output1* compiler::*vs* compiler::*record-call-info* compiler::fun-val compiler::*value-to-go* lisp::return compiler::top compiler::jump-true compiler::jump-false compiler::*unwind-exit* compiler::*exit* compiler::var (lisp::special compiler::global) (compiler::simple-call lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-character compiler::inline-integer compiler::inline-long-float compiler::inline-short-float) compiler::vs compiler::cvar compiler::bds-bind compiler::frame (compiler::simple-call lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-integer compiler::inline-character compiler::inline-long-float compiler::inline-short-float) compiler::*c-gc* compiler::tail-recursion-mark compiler::jump ((compiler::return-fixnum lisp::fixnum . compiler::wt-fixnum-loc) (compiler::return-character lisp::character . compiler::wt-character-loc) (compiler::return-short-float lisp::short-float . compiler::wt-short-float-loc) (compiler::return-long-float lisp::long-float . compiler::wt-long-float-loc) (compiler::return-object lisp::t . compiler::wt-loc)) compiler::*next-cvar* compiler::*reservation-cmacro* "long " "(object)" "" (lisp::return compiler::return-object compiler::return-fixnum compiler::return-character compiler::return-long-float compiler::return-short-float) compiler::wt1 compiler::record-call-info compiler::reset-top compiler::set-jump-true compiler::set-jump-false compiler::baboon compiler::unwind-bds compiler::set-loc compiler::cs-push compiler::vs-push compiler::wfs-error compiler::rep-type (system::%init . #((system::*make-special (lisp::quote compiler::*last-label*)) (lisp::or (lisp::boundp (lisp::quote compiler::*last-label*)) (lisp::setq compiler::*last-label* 0)) (system::*make-special (lisp::quote compiler::*exit*)) (system::*make-special (lisp::quote compiler::*unwind-exit*)) (system::*make-special (lisp::quote compiler::*record-call-info*)) (lisp::or (lisp::boundp (lisp::quote compiler::*record-call-info*)) (lisp::setq compiler::*record-call-info* lisp::nil)) (system::mm (lisp::quote compiler::next-label) 0) (system::mm (lisp::quote compiler::next-label*) 1) (system::mm (lisp::quote compiler::wt-label) 2) (system::mm (lisp::quote compiler::wt-go) 3) (system::*make-special (lisp::quote compiler::*restore-avma*)) (lisp::or (lisp::boundp (lisp::quote compiler::*restore-avma*)) (lisp::setq compiler::*restore-avma* lisp::nil)) (system::mfsfun (lisp::quote compiler::unwind-bds) 4 2) (system::mfvfun (lisp::quote compiler::unwind-exit) 5 769) (system::mfsfun (lisp::quote compiler::unwind-no-exit) 6 1) (system::mfsfun (lisp::quote compiler::tail-recursion-possible) 7 0)))) )