#(#! (lisp::in-package (lisp::quote user::compiler)) #(:sp-change compiler::*setjmps* lisp::catch compiler::*vs* compiler::*value-to-go* (compiler::push-catch-frame) compiler::*compiler-output1* compiler::fun-val compiler::jump compiler::*unwind-exit* compiler::frame lisp::unwind-protect compiler::*blocks* compiler::lb compiler::*tags* compiler::*vars* compiler::vs compiler::top compiler::*top-data* compiler::trash compiler::*base-used* lisp::throw compiler::var compiler::make-info compiler::too-few-args compiler::c1expr compiler::add-info compiler::c1progn compiler::c2expr* compiler::unwind-exit compiler::c2expr compiler::wt1 compiler::vs-push compiler::reset-top compiler::too-many-args compiler::location (system::%init . #((system::putprop (lisp::quote lisp::catch) (lisp::quote compiler::c1catch) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::catch) (lisp::quote compiler::c2catch) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::unwind-protect) (lisp::quote compiler::c1unwind-protect) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::unwind-protect) (lisp::quote compiler::c2unwind-protect) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::throw) (lisp::quote compiler::c1throw) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::throw) (lisp::quote compiler::c2throw) (lisp::quote compiler::c2)) (system::mfsfun (lisp::quote compiler::c1catch) 0 1) (system::putprop (lisp::quote compiler::push-catch-frame) (lisp::quote compiler::set-push-catch-frame) (lisp::quote compiler::set-loc)) (system::mfsfun (lisp::quote compiler::c2catch) 1 2) (system::mfsfun (lisp::quote compiler::set-push-catch-frame) 2 1) (system::mfsfun (lisp::quote compiler::c1unwind-protect) 3 1) (system::mfsfun (lisp::quote compiler::c2unwind-protect) 4 2) (system::mfsfun (lisp::quote compiler::c1throw) 5 1) (system::mfsfun (lisp::quote compiler::c2throw) 6 2)))) )