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

Diff of /gcl/cmpnew/gcl_cmplam.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:25:19 2003 UTC
# Line 2  Line 2 
2  #(#!  #(#!
3  (lisp::in-package (lisp::quote user::compiler))  (lisp::in-package (lisp::quote user::compiler))
4  #(lisp::unless (compiler::cmperr "The parameter specification ~s is illegal." compiler::spec) (compiler::cmperr "The lambda list ~s is illegal." compiler::vl) lisp::function lisp::lambda compiler::info compiler::var compiler::lexical compiler::down compiler::downward-function compiler::*compiler-output1* "This error is not supposed to occur: Contact Schelter ~  #(lisp::unless (compiler::cmperr "The parameter specification ~s is illegal." compiler::spec) (compiler::cmperr "The lambda list ~s is illegal." compiler::vl) lisp::function lisp::lambda compiler::info compiler::var compiler::lexical compiler::down compiler::downward-function compiler::*compiler-output1* "This error is not supposed to occur: Contact Schelter ~
5      ~%wfs@math.utexas.edu" compiler::*downward-closures* compiler::*compiler-output2* compiler::dcnames "struct dclosure " "DownClose" "," ";" :name compiler::closure :cfun compiler::*next-cfun* compiler::dclosure compiler::*clink* compiler::*ccb-vs* compiler::*local-funs* compiler::*closures* compiler::fun compiler::make-dclosure compiler::*vars* compiler::*setjmps* "The lambda expression ~s is illegal." lisp::block "The lambda list ~s is illegal." "The parameter specification ~s is illegal." "Either &key or &aux is missing before ~s." "&aux is missing before ~s." lisp::keyword :kind compiler::dummy lisp::let* compiler::*record-call-info* compiler::proclaimed-arg-types compiler::fixed-args lisp::object "The parameter ~s is not a symbol." "The constant ~s is being bound." compiler::*tail-recursion-info* compiler::*do-tail-recursion* compiler::*rest-on-stack* :dynamic-extent compiler::*unwind-exit* compiler::*vs* compiler::*next-cvar* compiler::*safe-compile* compiler::*compiler-check-args* compiler::*last-label* "ON_STACK_CONS" "MMcons" compiler::tail-recursion-mark compiler::location compiler::*vnames* compiler::*dm-info* compiler::*dm-vars* lisp::&whole lisp::&environment compiler::contains-setjmp lisp::&rest lisp::&optional lisp::&body lisp::&key lisp::&allow-other-keys lisp::&aux "Defmacro-lambda-list contains illegal use of ~s." lisp::car compiler::cvar compiler::*inline-blocks* (lisp::t) compiler::c1expr compiler::wt1 compiler::wt-h1 lisp::delete compiler::make-fun compiler::unwind-exit compiler::make-info compiler::cmperr compiler::c1body compiler::c1add-globals compiler::c1make-var compiler::default-init compiler::c1expr* compiler::and-form-type compiler::make-var compiler::add-info compiler::check-vdecl compiler::c1decl-body compiler::check-vref compiler::fix-down-args compiler::record-arg-info compiler::c2lambda-expr-with-key compiler::c2lambda-expr-without-key compiler::vs-push compiler::c2bind compiler::reset-top compiler::c2bind-loc compiler::c2bind-init compiler::c2expr compiler::add-symbol compiler::wt-vs compiler::c1dm-vl compiler::dm-bad-key compiler::c1dm-v compiler::c1nil compiler::c2dm-reserve-vl compiler::c2dm-bind-vl compiler::c2dm-reserve-v compiler::c2dm-bind-loc compiler::c2dm-bind-init compiler::inline-args compiler::close-inline-blocks compiler::c2var-kind compiler::wt-var-decl (system::%init . #((system::mm (lisp::quote compiler::ck-spec) 0) (system::mm (lisp::quote compiler::ck-vl) 1) (system::mm (lisp::quote compiler::downward-function) 2) (system::sputprop (lisp::quote compiler::downward-function) (lisp::quote compiler::c1special) (lisp::quote compiler::c1downward-function)) (system::mfsfun (lisp::quote compiler::c1downward-function) 3 1) (system::putprop (lisp::quote compiler::downward-function) (lisp::quote compiler::c2downward-function) (lisp::quote compiler::c2)) (system::putprop (lisp::quote compiler::make-dclosure) (lisp::quote compiler::wt-make-dclosure) (lisp::quote compiler::wt-loc)) (system::mfsfun (lisp::quote compiler::wt-make-dclosure) 4 2) (system::mfsfun (lisp::quote compiler::wfs-error) 5 0) (system::mfsfun (lisp::quote compiler::wt-downward-closure-macro) 6 1) (system::mfsfun (lisp::quote compiler::c2downward-function) 7 1) (system::mfvfun (lisp::quote compiler::c1lambda-expr) 8 513) (system::mfsfun (lisp::quote compiler::fix-down-args) 9 3) (system::mfsfun (lisp::quote compiler::the-parameter) 10 1) (system::*make-special (lisp::quote compiler::*rest-on-stack*)) (lisp::or (lisp::boundp (lisp::quote compiler::*rest-on-stack*)) (lisp::setq compiler::*rest-on-stack* lisp::nil)) (system::mfvfun (lisp::quote compiler::c2lambda-expr) 11 770) (system::mfsfun (lisp::quote compiler::c2lambda-expr-without-key) 12 2) (system::mfsfun (lisp::quote compiler::c2lambda-expr-with-key) 13 2) (system::mfsfun (lisp::quote compiler::need-to-set-vs-pointers) 14 1) (system::*make-special (lisp::quote compiler::*vnames*)) (system::*make-special (lisp::quote compiler::*dm-info*)) (system::*make-special (lisp::quote compiler::*dm-vars*)) (system::mfsfun (lisp::quote compiler::c1dm) 15 3) (system::mf (lisp::quote compiler::c1dm-vl) 16) (system::mf (lisp::quote compiler::c1dm-v) 17) (system::mfsfun (lisp::quote compiler::c1dm-bad-key) 18 1) (system::mf (lisp::quote compiler::c2dm) 19) (system::mfsfun (lisp::quote compiler::c2dm-reserve-vl) 20 1) (system::mfsfun (lisp::quote compiler::c2dm-reserve-v) 21 1) (system::mfsfun (lisp::quote compiler::c2dm-bind-vl) 22 2) (system::mfsfun (lisp::quote compiler::c2dm-bind-loc) 23 2) (system::mfsfun (lisp::quote compiler::c2dm-bind-init) 24 2))))      ~%wfs@math.utexas.edu" compiler::*downward-closures* compiler::*compiler-output2* compiler::dcnames "struct dclosure " "DownClose" "," ";" :name compiler::closure :cfun compiler::*next-cfun* compiler::dclosure compiler::*clink* compiler::*ccb-vs* compiler::*local-funs* compiler::*closures* compiler::fun compiler::make-dclosure compiler::*vars* compiler::*setjmps* "The lambda expression ~s is illegal." lisp::block "The lambda list ~s is illegal." "The parameter specification ~s is illegal." "Either &key or &aux is missing before ~s." "&aux is missing before ~s." lisp::keyword :kind compiler::dummy lisp::let* compiler::*record-call-info* compiler::proclaimed-arg-types compiler::fixed-args lisp::object "The parameter ~s is not a symbol." "The constant ~s is being bound." compiler::*tail-recursion-info* compiler::*do-tail-recursion* compiler::*rest-on-stack* :dynamic-extent compiler::*unwind-exit* compiler::*vs* compiler::*next-cvar* compiler::*safe-compile* compiler::*compiler-check-args* compiler::*last-label* "ON_STACK_CONS" "MMcons" compiler::tail-recursion-mark compiler::location compiler::*vnames* compiler::*dm-info* compiler::*dm-vars* lisp::&whole lisp::&environment compiler::contains-setjmp lisp::&rest lisp::&optional lisp::&body lisp::&key lisp::&allow-other-keys lisp::&aux "Defmacro-lambda-list contains illegal use of ~s." lisp::let ((compiler::ipos (lisp::file-position compiler::*compiler-output1*))) ((compiler::npos (lisp::file-position compiler::*compiler-output1*))) compiler::c2dm-bind-vl lisp::if (lisp::eql compiler::npos (lisp::file-position compiler::*compiler-output1*)) (lisp::file-position compiler::*compiler-output1* compiler::ipos) lisp::progn (lisp::when compiler::*c2dm-bind-vl-init-form* compiler::*c2dm-bind-vl-init-form* (lisp::setq compiler::*c2dm-bind-vl-init-form* lisp::nil)) compiler::wt-nl lisp::car compiler::cvar compiler::*inline-blocks* (lisp::t) compiler::c1expr compiler::wt1 compiler::wt-h1 lisp::delete compiler::make-fun compiler::unwind-exit compiler::make-info compiler::cmperr compiler::c1body compiler::c1add-globals compiler::c1make-var compiler::default-init compiler::c1expr* compiler::and-form-type compiler::make-var compiler::add-info compiler::check-vdecl compiler::c1decl-body compiler::check-vref compiler::fix-down-args compiler::record-arg-info compiler::c2lambda-expr-with-key compiler::c2lambda-expr-without-key compiler::vs-push compiler::c2bind compiler::reset-top compiler::c2bind-loc compiler::c2bind-init compiler::c2expr compiler::add-symbol compiler::wt-vs compiler::c1dm-vl compiler::dm-bad-key compiler::c1dm-v compiler::c1nil compiler::c2dm-reserve-vl compiler::c2dm-reserve-v compiler::c2dm-bind-loc compiler::c2dm-bind-init compiler::inline-args compiler::close-inline-blocks compiler::c2var-kind compiler::wt-var-decl (system::%init . #((system::mm (lisp::quote compiler::ck-spec) 0) (system::mm (lisp::quote compiler::ck-vl) 1) (system::mm (lisp::quote compiler::downward-function) 2) (system::sputprop (lisp::quote compiler::downward-function) (lisp::quote compiler::c1special) (lisp::quote compiler::c1downward-function)) (system::mfsfun (lisp::quote compiler::c1downward-function) 3 1) (system::putprop (lisp::quote compiler::downward-function) (lisp::quote compiler::c2downward-function) (lisp::quote compiler::c2)) (system::putprop (lisp::quote compiler::make-dclosure) (lisp::quote compiler::wt-make-dclosure) (lisp::quote compiler::wt-loc)) (system::mfsfun (lisp::quote compiler::wt-make-dclosure) 4 2) (system::mfsfun (lisp::quote compiler::wfs-error) 5 0) (system::mfsfun (lisp::quote compiler::wt-downward-closure-macro) 6 1) (system::mfsfun (lisp::quote compiler::c2downward-function) 7 1) (system::mfvfun (lisp::quote compiler::c1lambda-expr) 8 513) (system::mfsfun (lisp::quote compiler::fix-down-args) 9 3) (system::mfsfun (lisp::quote compiler::the-parameter) 10 1) (system::*make-special (lisp::quote compiler::*rest-on-stack*)) (lisp::or (lisp::boundp (lisp::quote compiler::*rest-on-stack*)) (lisp::setq compiler::*rest-on-stack* lisp::nil)) (system::mfvfun (lisp::quote compiler::c2lambda-expr) 11 770) (system::mfsfun (lisp::quote compiler::c2lambda-expr-without-key) 12 2) (system::mfsfun (lisp::quote compiler::c2lambda-expr-with-key) 13 2) (system::mfsfun (lisp::quote compiler::need-to-set-vs-pointers) 14 1) (system::*make-special (lisp::quote compiler::*vnames*)) (system::*make-special (lisp::quote compiler::*dm-info*)) (system::*make-special (lisp::quote compiler::*dm-vars*)) (system::mfsfun (lisp::quote compiler::c1dm) 15 3) (system::mf (lisp::quote compiler::c1dm-vl) 16) (system::mf (lisp::quote compiler::c1dm-v) 17) (system::mfsfun (lisp::quote compiler::c1dm-bad-key) 18 1) (system::mm (lisp::quote compiler::maybe-wt-c2dm-bind-vl) 19) (system::mf (lisp::quote compiler::c2dm) 20) (system::mfsfun (lisp::quote compiler::c2dm-reserve-vl) 21 1) (system::mfsfun (lisp::quote compiler::c2dm-reserve-v) 22 1) (system::mm (lisp::quote compiler::wt-or-report-ref) 23) (system::mf (lisp::quote compiler::c2dm-bind-vl) 24) (system::mfsfun (lisp::quote compiler::c2dm-bind-loc) 25 2) (system::mfsfun (lisp::quote compiler::c2dm-bind-init) 26 2) (system::debug (lisp::quote compiler::c1downward-function) (lisp::quote (compiler::tem compiler::info #:g1380 compiler::var))) (system::debug (lisp::quote compiler::c2downward-function) (lisp::quote (#:g1386))) (system::debug (lisp::quote compiler::c1lambda-expr) (lisp::quote (compiler::lambda-expr compiler::block-name #:g1397))) (system::debug (lisp::quote compiler::fix-down-args) (lisp::quote (compiler::new compiler::init #:g1469))) (system::debug (lisp::quote compiler::c2lambda-expr) (lisp::quote (compiler::lambda-list #:g1479 compiler::var))) (system::debug (lisp::quote compiler::c2lambda-expr-without-key) (lisp::quote (compiler::requireds compiler::optionals lisp::rest compiler::*unwind-exit* lisp::nil compiler::*clink* compiler::*ccb-vs* compiler::block-p compiler::v lisp::nil lisp::nil #:g1505))) (system::debug (lisp::quote compiler::c2lambda-expr-with-key) (lisp::quote (compiler::requireds compiler::optionals lisp::rest compiler::keywords compiler::allow-other-keys compiler::*unwind-exit* lisp::nil compiler::*clink* compiler::*ccb-vs* compiler::block-p compiler::v lisp::nil lisp::nil #:g1543))) (system::debug (lisp::quote compiler::c1dm) (lisp::quote (lisp::nil compiler::*vnames* compiler::*dm-info* compiler::*dm-vars* #:g1562))) (system::debug (lisp::quote compiler::c1dm-vl) (lisp::quote (compiler::vl compiler::ss compiler::is compiler::ts #:g1582))) (system::debug (lisp::quote compiler::c1dm-v) (lisp::quote (compiler::v compiler::ss compiler::is compiler::ts))) (system::debug (lisp::quote compiler::c2dm) (lisp::quote (compiler::whole compiler::env compiler::vl compiler::body compiler::cvar))) (system::debug (lisp::quote compiler::c2dm-reserve-vl) (lisp::quote (#:g1615 compiler::var))) (system::debug (lisp::quote compiler::c2dm-bind-vl) (lisp::quote (compiler::vl compiler::cvar compiler::requireds compiler::optionals lisp::rest compiler::key-flag compiler::keywords compiler::allow-other-keys compiler::auxs compiler::kwd))) (system::debug (lisp::quote compiler::c2dm-bind-init) (lisp::quote (lisp::nil lisp::nil compiler::cvar compiler::loc))))))
6  )  )

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