       
#(#! 
(lisp::in-package (lisp::quote user::compiler))
#(compiler::*compiler-output1* compiler::*value-to-go* lisp::return compiler::trash (lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-integer compiler::inline-character compiler::inline-long-float compiler::inline-short-float) compiler::simple-call compiler::top compiler::fun-val compiler::return-fixnum compiler::return-character compiler::return-long-float compiler::return-short-float compiler::set-loc compiler::wt-loc compiler::vs compiler::*level* compiler::*base-used* compiler::var compiler::lexical compiler::*vs* lisp::fixnum compiler::inline-fixnum compiler::fixnum-value (compiler::inline-short-float compiler::inline-long-float) compiler::*restore-avma* lisp::character compiler::inline-character compiler::character-value lisp::long-float compiler::inline-long-float compiler::long-float-value lisp::short-float compiler::inline-short-float compiler::short-float-value compiler::set-return compiler::wt-inline compiler::wt1 compiler::set-top compiler::set-return-fixnum compiler::set-return-character compiler::set-return-long-float compiler::set-return-short-float compiler::baboon compiler::wt-vs compiler::vs-push compiler::wt-inline-loc compiler::inline-integer lisp::integer compiler::wfs-error (system::%init . #((system::*make-special (lisp::quote compiler::*value-to-go*)) (system::putprop (lisp::quote compiler::cvar) (lisp::quote compiler::wt-cvar) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::vv) (lisp::quote compiler::wt-vv) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote lisp::car) (lisp::quote compiler::wt-car) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote lisp::cdr) (lisp::quote compiler::wt-cdr) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote lisp::cadr) (lisp::quote compiler::wt-cadr) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::vs-base) (lisp::quote compiler::wt-vs-base) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::fixnum-value) (lisp::quote compiler::wt-fixnum-value) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::fixnum-loc) (lisp::quote compiler::wt-fixnum-loc) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::integer-loc) (lisp::quote compiler::wt-integer-loc) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::character-value) (lisp::quote compiler::wt-character-value) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::character-loc) (lisp::quote compiler::wt-character-loc) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::long-float-value) (lisp::quote compiler::wt-long-float-value) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::long-float-loc) (lisp::quote compiler::wt-long-float-loc) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::short-float-value) (lisp::quote compiler::wt-short-float-value) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::short-float-loc) (lisp::quote compiler::wt-short-float-loc) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::next-var-arg) (lisp::quote compiler::wt-next-var-arg) (lisp::quote compiler::wt-loc)) (system::mfsfun (lisp::quote compiler::wt-next-var-arg) 0 0) (system::mf (lisp::quote compiler::set-loc) 1) (system::mf (lisp::quote compiler::wt-loc) 2) (system::mfsfun (lisp::quote compiler::set-return) 3 1) (system::mfsfun (lisp::quote compiler::set-top) 4 1) (system::mfsfun (lisp::quote compiler::wt-vs-base) 5 1) (system::mfsfun (lisp::quote compiler::wt-car) 6 1) (system::mfsfun (lisp::quote compiler::wt-cdr) 7 1) (system::mfsfun (lisp::quote compiler::wt-cadr) 8 1) (system::mfvfun (lisp::quote compiler::wt-cvar) 9 513) (system::mfsfun (lisp::quote compiler::wt-vv) 10 1) (system::mf (lisp::quote compiler::wt-fixnum-loc) 11) (system::mf (lisp::quote compiler::wt-integer-loc) 12) (system::mfsfun (lisp::quote compiler::fixnum-loc-p) 13 1) (system::mfsfun (lisp::quote compiler::wt-fixnum-value) 14 2) (system::mf (lisp::quote compiler::wt-character-loc) 15) (system::mfsfun (lisp::quote compiler::character-loc-p) 16 1) (system::mfsfun (lisp::quote compiler::wt-character-value) 17 2) (system::mf (lisp::quote compiler::wt-long-float-loc) 18) (system::mfsfun (lisp::quote compiler::long-float-loc-p) 19 1) (system::mfsfun (lisp::quote compiler::wt-long-float-value) 20 2) (system::mf (lisp::quote compiler::wt-short-float-loc) 21) (system::mfsfun (lisp::quote compiler::short-float-loc-p) 22 1) (system::mfsfun (lisp::quote compiler::wt-short-float-value) 23 2))))
)
