#(#! (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::putprop (lisp::quote compiler::first-var-arg) (lisp::quote compiler::wt-first-var-arg) (lisp::quote compiler::wt-loc)) (system::mf (lisp::quote compiler::wt-first-var-arg) 0) (system::mfsfun (lisp::quote compiler::wt-next-var-arg) 1 0) (system::mf (lisp::quote compiler::set-loc) 2) (system::mf (lisp::quote compiler::wt-loc) 3) (system::mfsfun (lisp::quote compiler::set-return) 4 1) (system::mfsfun (lisp::quote compiler::set-top) 5 1) (system::mfsfun (lisp::quote compiler::wt-vs-base) 6 1) (system::mfsfun (lisp::quote compiler::wt-car) 7 1) (system::mfsfun (lisp::quote compiler::wt-cdr) 8 1) (system::mfsfun (lisp::quote compiler::wt-cadr) 9 1) (system::mfvfun (lisp::quote compiler::wt-cvar) 10 513) (system::mfsfun (lisp::quote compiler::wt-vv) 11 1) (system::mf (lisp::quote compiler::wt-fixnum-loc) 12) (system::mf (lisp::quote compiler::wt-integer-loc) 13) (system::mfsfun (lisp::quote compiler::fixnum-loc-p) 14 1) (system::mfsfun (lisp::quote compiler::wt-fixnum-value) 15 2) (system::mf (lisp::quote compiler::wt-character-loc) 16) (system::mfsfun (lisp::quote compiler::character-loc-p) 17 1) (system::mfsfun (lisp::quote compiler::wt-character-value) 18 2) (system::mf (lisp::quote compiler::wt-long-float-loc) 19) (system::mfsfun (lisp::quote compiler::long-float-loc-p) 20 1) (system::mfsfun (lisp::quote compiler::wt-long-float-value) 21 2) (system::mf (lisp::quote compiler::wt-short-float-loc) 22) (system::mfsfun (lisp::quote compiler::short-float-loc-p) 23 1) (system::mfsfun (lisp::quote compiler::wt-short-float-value) 24 2)))) )