/[gcl]/gcl/cmpnew/gcl_cmpif.data
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpif.data

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.2.1 by camm, Sun Sep 14 02:30:33 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:39:18 2003 UTC
# Line 1  Line 1 
1                
2  #(#!  #(#!
3  (lisp::in-package (lisp::quote user::compiler))  (lisp::in-package (lisp::quote user::compiler))
4  #(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))))  #(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) (system::debug (lisp::quote compiler::c2if) (lisp::quote (compiler::fmla compiler::form1 compiler::form2 compiler::tlabel))) (system::debug (lisp::quote compiler::cjt) (lisp::quote (compiler::label))) (system::debug (lisp::quote compiler::cjf) (lisp::quote (compiler::label))) (system::debug (lisp::quote compiler::c2and) (lisp::quote (compiler::forms compiler::label))) (system::debug (lisp::quote compiler::c2or) (lisp::quote (compiler::forms lisp::nil compiler::label))) (system::debug (lisp::quote compiler::convert-case-to-switch) (lisp::quote (#:g1392 compiler::v #:g1394 compiler::w))) (system::debug (lisp::quote compiler::c1case) (lisp::quote (compiler::args compiler::key-form #:g1406 compiler::clause compiler::keylist compiler::body #:g1408))) (system::debug (lisp::quote compiler::c2case) (lisp::quote (compiler::cvar lisp::nil lisp::nil compiler::clause compiler::label compiler::keylist))))))
5  )  )

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26