       
#(#! 
(lisp::in-package (lisp::quote user::compiler))
#(lisp::unless (compiler::cmperr "The parameter specification ~s is illegal." compiler::spec) (compiler::cmperr "The lambda list ~s is illegal." compiler::vl) lisp::function lisp::lambda compiler::info compiler::var compiler::lexical compiler::down compiler::downward-function compiler::*compiler-output1* "This error is not supposed to occur: Contact Schelter ~
    ~%wfs@math.utexas.edu" compiler::*downward-closures* compiler::*compiler-output2* compiler::dcnames "struct dclosure " "DownClose" "," ";" :name compiler::closure :cfun compiler::*next-cfun* compiler::*local-funs* compiler::dclosure compiler::*clink* compiler::*ccb-vs* compiler::*closures* compiler::fun compiler::make-dclosure compiler::*vars* compiler::*setjmps* "The lambda expression ~s is illegal." lisp::block "The lambda list ~s is illegal." "The parameter specification ~s is illegal." "Either &key or &aux is missing before ~s." "&aux is missing before ~s." lisp::keyword :kind compiler::dummy lisp::let* compiler::*record-call-info* compiler::proclaimed-arg-types compiler::fixed-args lisp::object "The parameter ~s is not a symbol." "The constant ~s is being bound." compiler::*tail-recursion-info* compiler::*do-tail-recursion* compiler::*rest-on-stack* :dynamic-extent compiler::*unwind-exit* compiler::*vs* compiler::*next-cvar* compiler::*safe-compile* compiler::*compiler-check-args* compiler::*last-label* "ON_STACK_CONS" "MMcons" compiler::tail-recursion-mark compiler::location compiler::*vnames* compiler::*dm-info* compiler::*dm-vars* lisp::&whole lisp::&environment compiler::contains-setjmp lisp::&rest lisp::&optional lisp::&body lisp::&key lisp::&allow-other-keys lisp::&aux "Defmacro-lambda-list contains illegal use of ~s." lisp::car compiler::cvar compiler::*inline-blocks* (lisp::t) compiler::c1expr compiler::wt1 compiler::wt-h1 lisp::delete compiler::make-fun compiler::unwind-exit compiler::make-info compiler::cmperr compiler::c1body compiler::c1add-globals compiler::c1make-var compiler::default-init compiler::c1expr* compiler::and-form-type compiler::make-var compiler::add-info compiler::check-vdecl compiler::c1decl-body compiler::check-vref compiler::fix-down-args compiler::record-arg-info compiler::c2lambda-expr-with-key compiler::c2lambda-expr-without-key compiler::vs-push compiler::c2bind compiler::reset-top compiler::c2bind-loc compiler::c2bind-init compiler::c2expr compiler::add-symbol compiler::wt-vs compiler::c1dm-vl compiler::dm-bad-key compiler::c1dm-v compiler::c1nil compiler::c2dm-reserve-vl compiler::c2dm-bind-vl compiler::c2dm-reserve-v compiler::c2dm-bind-loc compiler::c2dm-bind-init compiler::inline-args compiler::close-inline-blocks compiler::c2var-kind compiler::wt-var-decl (system::%init . #((system::mm (lisp::quote compiler::ck-spec) 0) (system::mm (lisp::quote compiler::ck-vl) 1) (system::mm (lisp::quote compiler::downward-function) 2) (system::sputprop (lisp::quote compiler::downward-function) (lisp::quote compiler::c1special) (lisp::quote compiler::c1downward-function)) (system::mfsfun (lisp::quote compiler::c1downward-function) 3 1) (system::putprop (lisp::quote compiler::downward-function) (lisp::quote compiler::c2downward-function) (lisp::quote compiler::c2)) (system::putprop (lisp::quote compiler::make-dclosure) (lisp::quote compiler::wt-make-dclosure) (lisp::quote compiler::wt-loc)) (system::mfsfun (lisp::quote compiler::wt-make-dclosure) 4 2) (system::mfsfun (lisp::quote compiler::wfs-error) 5 0) (system::mfsfun (lisp::quote compiler::wt-downward-closure-macro) 6 1) (system::mfsfun (lisp::quote compiler::c2downward-function) 7 1) (system::mfvfun (lisp::quote compiler::c1lambda-expr) 8 513) (system::mfsfun (lisp::quote compiler::fix-down-args) 9 3) (system::mfsfun (lisp::quote compiler::the-parameter) 10 1) (system::*make-special (lisp::quote compiler::*rest-on-stack*)) (lisp::or (lisp::boundp (lisp::quote compiler::*rest-on-stack*)) (lisp::setq compiler::*rest-on-stack* lisp::nil)) (system::mfvfun (lisp::quote compiler::c2lambda-expr) 11 770) (system::mfsfun (lisp::quote compiler::c2lambda-expr-without-key) 12 2) (system::mfsfun (lisp::quote compiler::c2lambda-expr-with-key) 13 2) (system::mfsfun (lisp::quote compiler::need-to-set-vs-pointers) 14 1) (system::*make-special (lisp::quote compiler::*vnames*)) (system::*make-special (lisp::quote compiler::*dm-info*)) (system::*make-special (lisp::quote compiler::*dm-vars*)) (system::mfsfun (lisp::quote compiler::c1dm) 15 3) (system::mf (lisp::quote compiler::c1dm-vl) 16) (system::mf (lisp::quote compiler::c1dm-v) 17) (system::mfsfun (lisp::quote compiler::c1dm-bad-key) 18 1) (system::mf (lisp::quote compiler::c2dm) 19) (system::mfsfun (lisp::quote compiler::c2dm-reserve-vl) 20 1) (system::mfsfun (lisp::quote compiler::c2dm-reserve-v) 21 1) (system::mfsfun (lisp::quote compiler::c2dm-bind-vl) 22 2) (system::mfsfun (lisp::quote compiler::c2dm-bind-loc) 23 2) (system::mfsfun (lisp::quote compiler::c2dm-bind-init) 24 2))))
)
