#(#! (lisp::in-package (lisp::quote user::compiler)) #(lisp::mapcar lisp::mapc lisp::mapcan compiler::map-function compiler::*vs* compiler::*inline-blocks* compiler::*last-label* compiler::vs compiler::cvar compiler::*next-cvar* :initial-element compiler::*compiler-output1* compiler::*safe-compile* compiler::jump compiler::*value-to-go* lisp::car compiler::*exit* compiler::*unwind-exit* compiler::location compiler::*info* compiler::trash lisp::cdr compiler::var compiler::c1map-functions compiler::too-few-args compiler::c1funob compiler::copy-info compiler::c1args compiler::vs-push compiler::save-funob compiler::push-changed-vars compiler::inline-args compiler::wt1 compiler::unwind-exit compiler::c2funcall compiler::close-inline-blocks compiler::args-info-changed-vars (system::%init . #((system::putprop (lisp::quote lisp::mapcar) (lisp::quote compiler::c1mapcar) (lisp::quote compiler::c1)) (system::putprop (lisp::quote lisp::maplist) (lisp::quote compiler::c1maplist) (lisp::quote compiler::c1)) (system::putprop (lisp::quote lisp::mapcar) (lisp::quote compiler::c2mapcar) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::mapc) (lisp::quote compiler::c1mapc) (lisp::quote compiler::c1)) (system::putprop (lisp::quote lisp::mapl) (lisp::quote compiler::c1mapl) (lisp::quote compiler::c1)) (system::putprop (lisp::quote lisp::mapc) (lisp::quote compiler::c2mapc) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::mapcan) (lisp::quote compiler::c1mapcan) (lisp::quote compiler::c1)) (system::putprop (lisp::quote lisp::mapcon) (lisp::quote compiler::c1mapcon) (lisp::quote compiler::c1)) (system::putprop (lisp::quote lisp::mapcan) (lisp::quote compiler::c2mapcan) (lisp::quote compiler::c2)) (system::mfsfun (lisp::quote compiler::c1mapcar) 0 1) (system::mfsfun (lisp::quote compiler::c1maplist) 1 1) (system::mfsfun (lisp::quote compiler::c1mapc) 2 1) (system::mfsfun (lisp::quote compiler::c1mapl) 3 1) (system::mfsfun (lisp::quote compiler::c1mapcan) 4 1) (system::mfsfun (lisp::quote compiler::c1mapcon) 5 1) (system::mfsfun (lisp::quote compiler::c1map-functions) 6 3) (system::mfsfun (lisp::quote compiler::c2mapcar) 7 3) (system::mfsfun (lisp::quote compiler::c2mapc) 8 3) (system::mfsfun (lisp::quote compiler::c2mapcan) 9 3) (system::mfsfun (lisp::quote compiler::push-changed-vars) 10 2)))) )