#(#! (lisp::in-package (lisp::quote user::compiler)) #(compiler::fixed-args compiler::proclaimed-function compiler::proclaimed-return-type (lisp::character lisp::boolean lisp::long-float lisp::short-float) compiler::proclaimed-arg-types lisp::* compiler::call-local lisp::quote lisp::lambda compiler::*vars* compiler::*funs* compiler::*blocks* compiler::*tags* compiler::call-lambda compiler::call-global :sp-change compiler::no-sp-change lisp::function compiler::ordinary compiler::*vs* compiler::*use-sfuncall* compiler::*value-to-go* compiler::trash compiler::var compiler::info (lisp::values lisp::t) compiler::location compiler::vs compiler::*compiler-push-events* compiler::*compiler-output1* compiler::*super-funcall* compiler::fun-val #\( compiler::cvar compiler::*space* #\, #\) compiler::*base-used* "Calling lambda with ~a args not ~a" compiler::arg-types system::structure-access (lisp::t) "Wrong number of args for ~s: ~a instead of ~a." compiler::*restore-avma* lisp::integer compiler::*inline-blocks* compiler::restore-avma compiler::*do-tail-recursion* compiler::*tail-recursion-info* compiler::*exit* (lisp::return compiler::return-fixnum compiler::return-character compiler::return-short-float compiler::return-long-float compiler::return-object) compiler::*last-label* compiler::*unwind-exit* compiler::tail-recursion-mark "Tail-recursive call of ~s was replaced by iteration." compiler::lfun compiler::ufun compiler::*ifuncall* compiler::ifuncall compiler::top "~%Called with top:~a" compiler::proclaimed-closure "~a: Fixed args not fixed!" :initial-element "~a called with ~a args, expected ~a " compiler::*function-links* "(*(LnkLI~d))(" "#*" "," "#~a" ")" compiler::link-call compiler::*inline-functions* "LI~d" :test lisp::equal "" "void" "long " "object " "v" "" #\/ compiler::*safe-compile* compiler::*next-cvar* "~%Using ifuncall: ~a" 1 (lisp::t) "ifuncall1(VV[~d],(#0))" 2 (lisp::t lisp::t) "ifuncall2(VV[~d],(#0),(#1))" "ifuncall(VV[~a],~a~{,#~a~})" compiler::*global-funs* lisp::return compiler::simple-call "lispcall_no_event" "lispcall" "symlispcall_no_event" "symlispcall" compiler::c1local-fun compiler::cmp-macro-function compiler::cmp-macroexpand compiler::c1lambda-expr compiler::make-info compiler::c1expr compiler::add-info compiler::c2funcall compiler::c2call-global compiler::c2call-local compiler::c2call-lambda compiler::c2funcall-sfun compiler::baboon compiler::args-info-changed-vars compiler::vs-push compiler::c2expr* compiler::push-args compiler::wt1 compiler::unwind-exit compiler::cs-push compiler::push-args-lispcall compiler::need-to-set-vs-pointers compiler::c2lambda-expr compiler::cmperr compiler::c2let compiler::cmpwarn compiler::inc-inline-blocks compiler::inline-possible compiler::tail-recursion-possible compiler::c2psetq compiler::unwind-no-exit compiler::cmpnote compiler::get-inline-info compiler::save-avma compiler::get-inline-loc compiler::close-inline-blocks compiler::check-fname-args compiler::inline-proc compiler::add-fast-link compiler::c2call-unknown-global compiler::add-symbol lisp::make-string-output-stream lisp::get-output-stream-string compiler::rep-type compiler::declaration-type compiler::add-object compiler::proclaimed-argd lisp::find lisp::remove compiler::wt-loc compiler::call-quote-lambda compiler::args-cause-side-effect compiler::wt-inline-loc (system::%init . #((system::*make-special (lisp::quote compiler::*ifuncall*)) (lisp::or (lisp::boundp (lisp::quote compiler::*ifuncall*)) (lisp::setq compiler::*ifuncall* lisp::nil)) (system::mfvfun (lisp::quote compiler::fast-link-proclaimed-type-p) 0 513) (system::putprop (lisp::quote lisp::funcall) (lisp::quote compiler::c2funcall-aux) (lisp::quote compiler::wholec2)) (system::putprop (lisp::quote compiler::call-lambda) (lisp::quote compiler::c2call-lambda) (lisp::quote compiler::c2)) (system::putprop (lisp::quote compiler::call-global) (lisp::quote compiler::c2call-global) (lisp::quote compiler::c2)) (system::mfsfun (lisp::quote compiler::cmp-macro-function) 1 1) (system::mfsfun (lisp::quote compiler::c1funob) 2 1) (system::mfsfun (lisp::quote compiler::c2funcall-aux) 3 1) (system::*make-special (lisp::quote compiler::*use-sfuncall*)) (lisp::or (lisp::boundp (lisp::quote compiler::*use-sfuncall*)) (lisp::setq compiler::*use-sfuncall* lisp::t)) (system::*make-special (lisp::quote compiler::*super-funcall*)) (lisp::or (lisp::boundp (lisp::quote compiler::*super-funcall*)) (lisp::setq compiler::*super-funcall* lisp::nil)) (system::mfvfun (lisp::quote compiler::c2funcall) 4 1026) (system::mfvfun (lisp::quote compiler::fcalln-inline) 5 16384) (system::mfsfun (lisp::quote compiler::c2call-lambda) 6 2) (system::mfsfun (lisp::quote compiler::check-fname-args) 7 2) (system::mf (lisp::quote compiler::save-avma) 8) (system::mfsfun (lisp::quote compiler::c2call-global) 9 4) (system::mfsfun (lisp::quote compiler::add-fast-link) 10 3) (system::mf (lisp::quote compiler::declaration-type) 11) (system::mfsfun (lisp::quote compiler::wt-function-link) 12 1) (system::mfsfun (lisp::quote compiler::wt-funcall-c) 13 1) (system::mfsfun (lisp::quote compiler::inline-proc) 14 2) (system::putprop (lisp::quote compiler::simple-call) (lisp::quote compiler::wt-simple-call) (lisp::quote compiler::wt-loc)) (system::mfvfun (lisp::quote compiler::wt-simple-call) 15 1027) (system::mfsfun (lisp::quote compiler::save-funob) 16 1) (system::mfsfun (lisp::quote compiler::push-args) 17 1) (system::mfsfun (lisp::quote compiler::push-args-lispcall) 18 1) (system::mfsfun (lisp::quote compiler::c2call-unknown-global) 19 4)))) )