#(#! (lisp::in-package (lisp::quote user::compiler)) #(lisp::if lisp::and lisp::or lisp::not compiler::fmla-and compiler::fmla-or compiler::fmla-not lisp::the lisp::boolean compiler::*last-label* compiler::location compiler::*value-to-go* compiler::trash compiler::*exit* lisp::return compiler::*unwind-exit* compiler::*compiler-output1* compiler::jump compiler::jump-true compiler::jump-false compiler::var compiler::*vs* compiler::call-global compiler::predicate compiler::*inline-blocks* compiler::inline-cond (lisp::t lisp::otherwise) "T or otherwise found in an ecase" lisp::return-from lisp::progn lisp::error "The key ~a for ECASE was not found in cases ~a" lisp::quote lisp::block system::switch lisp::case compiler::info lisp::fixnum "The CASE clause ~S is illegal." "ECASE had an OTHERWISE clause." "CASE had more than one OTHERWISE clauses." compiler::*next-cvar* (lisp::t) compiler::too-few-args compiler::too-many-args compiler::c1fmla-constant compiler::c1expr compiler::c1nil compiler::make-info compiler::c1fmla compiler::c1expr* lisp::null compiler::c1t compiler::cjf compiler::wt1 compiler::c2expr compiler::cjt compiler::unwind-no-exit compiler::c2expr* compiler::c1args compiler::unwind-exit compiler::wt-var compiler::wt-c-push compiler::close-inline-blocks compiler::wt-inline-loc compiler::c1case compiler::cmperror lisp::subtypep compiler::convert-case-to-switch compiler::cmperr lisp::otherwise compiler::c1progn compiler::add-info compiler::add-object compiler::inline-args compiler::add-symbol (system::%init . #((system::putprop (lisp::quote lisp::if) (lisp::quote compiler::c1if) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::if) (lisp::quote compiler::c2if) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::and) (lisp::quote compiler::c1and) (lisp::quote compiler::c1)) (system::putprop (lisp::quote lisp::and) (lisp::quote compiler::c2and) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::or) (lisp::quote compiler::c1or) (lisp::quote compiler::c1)) (system::putprop (lisp::quote lisp::or) (lisp::quote compiler::c2or) (lisp::quote compiler::c2)) (system::putprop (lisp::quote compiler::jump-true) (lisp::quote compiler::set-jump-true) (lisp::quote compiler::set-loc)) (system::putprop (lisp::quote compiler::jump-false) (lisp::quote compiler::set-jump-false) (lisp::quote compiler::set-loc)) (system::putprop (lisp::quote lisp::case) (lisp::quote compiler::c1case) (lisp::quote compiler::c1)) (system::putprop (lisp::quote lisp::ecase) (lisp::quote compiler::c1ecase) (lisp::quote compiler::c1)) (system::putprop (lisp::quote lisp::case) (lisp::quote compiler::c2case) (lisp::quote compiler::c2)) (system::mfsfun (lisp::quote compiler::c1if) 0 1) (system::mfsfun (lisp::quote compiler::c1fmla-constant) 1 1) (system::mfsfun (lisp::quote compiler::c1fmla) 2 2) (system::mf (lisp::quote compiler::c2if) 3) (system::mfsfun (lisp::quote compiler::cjt) 4 3) (system::mfsfun (lisp::quote compiler::cjf) 5 3) (system::mfsfun (lisp::quote compiler::c1and) 6 1) (system::mf (lisp::quote compiler::c2and) 7) (system::mfsfun (lisp::quote compiler::c1or) 8 1) (system::mf (lisp::quote compiler::c2or) 9) (system::mfsfun (lisp::quote compiler::set-jump-true) 10 2) (system::mfsfun (lisp::quote compiler::set-jump-false) 11 2) (system::mfsfun (lisp::quote compiler::c1ecase) 12 1) (system::mfsfun (lisp::quote compiler::convert-case-to-switch) 13 2) (system::mfvfun (lisp::quote compiler::c1case) 14 513) (system::mfsfun (lisp::quote compiler::c2case) 15 3)))) )