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

Diff of /gcl/cmpnew/gcl_cmpflet.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:17 2003 UTC
# Line 1  Line 1 
1                
2  #(#!  #(#!
3  (lisp::in-package (lisp::quote user::compiler))  (lisp::in-package (lisp::quote user::compiler))
4  #(compiler::fun lisp::flet compiler::*funs* "The function definition ~s is illegal." :name :ref :ref-ccb compiler::*vars* compiler::cb compiler::*blocks* compiler::*tags* compiler::lb compiler::*next-cfun* compiler::*vs* compiler::*clink* compiler::*ccb-vs* compiler::*level* compiler::*local-funs* compiler::closure compiler::*closures* compiler::*compiler-output1* lisp::labels "The local function definition ~s is illegal." "The function ~s was already defined." lisp::macrolet "The macro definition ~s is illegal." compiler::call-local compiler::*info* compiler::*do-tail-recursion* compiler::*tail-recursion-info* compiler::*exit* lisp::return compiler::*value-to-go* compiler::trash compiler::*last-label* compiler::*unwind-exit* compiler::tail-recursion-mark "Tail-recursive call of ~s was replaced by iteration." compiler::*base-used* compiler::fun-val :level :cfun compiler::too-few-args compiler::cmperr compiler::make-fun compiler::c1body compiler::c1add-globals compiler::check-vdecl compiler::c1decl-body compiler::copy-info compiler::c1lambda-expr compiler::add-info compiler::vs-push compiler::wt-vs compiler::wt1 compiler::wt-clink compiler::clink compiler::ccb-vs-push compiler::c2expr compiler::wt-vs* system::defmacro* compiler::push-args compiler::wt-ccb-vs compiler::tail-recursion-possible compiler::c2psetq compiler::unwind-no-exit compiler::cmpnote compiler::unwind-exit (system::%init . #((system::putprop (lisp::quote lisp::flet) (lisp::quote compiler::c1flet) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::flet) (lisp::quote compiler::c2flet) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::labels) (lisp::quote compiler::c1labels) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::labels) (lisp::quote compiler::c2labels) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::macrolet) (lisp::quote compiler::c1macrolet) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote compiler::call-local) (lisp::quote compiler::c2call-local) (lisp::quote compiler::c2)) (system::define-structure (lisp::quote compiler::fun) (lisp::quote compiler::fun-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote ((compiler::name lisp::nil lisp::t lisp::nil 0) (compiler::ref lisp::nil lisp::t lisp::nil 1) (compiler::ref-ccb lisp::nil lisp::t lisp::nil 2) (lisp::cfun lisp::nil lisp::t lisp::nil 3) (compiler::level lisp::nil lisp::t lisp::nil 4))) (lisp::quote compiler::copy-fun) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (compiler::make-fun)) (lisp::quote 5) (lisp::quote compiler::fun-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote compiler::make-fun) 0 16384 1) (system::*make-special (lisp::quote compiler::*funs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*funs*)) (lisp::setq compiler::*funs* lisp::nil)) (system::mfsfun (lisp::quote compiler::c1flet) 2 1) (system::mf (lisp::quote compiler::c2flet) 3) (system::mfsfun (lisp::quote compiler::c1labels) 4 1) (system::mf (lisp::quote compiler::c2labels) 5) (system::mfsfun (lisp::quote compiler::c1macrolet) 6 1) (system::mfsfun (lisp::quote compiler::c1local-fun) 7 1) (system::mfsfun (lisp::quote compiler::sch-local-fun) 8 1) (system::mfsfun (lisp::quote compiler::c1local-closure) 9 1) (system::mfsfun (lisp::quote compiler::c2call-local) 10 2))))  #(compiler::fun lisp::flet compiler::*funs* "The function definition ~s is illegal." :name :ref :ref-ccb compiler::*vars* compiler::cb compiler::*blocks* compiler::*tags* compiler::lb compiler::*next-cfun* compiler::*vs* compiler::*clink* compiler::*ccb-vs* compiler::*level* compiler::*local-funs* compiler::closure compiler::*closures* compiler::*compiler-output1* lisp::labels "The local function definition ~s is illegal." "The function ~s was already defined." lisp::macrolet "The macro definition ~s is illegal." compiler::call-local compiler::*info* compiler::*do-tail-recursion* compiler::*tail-recursion-info* compiler::*exit* lisp::return compiler::*value-to-go* compiler::trash compiler::*last-label* compiler::*unwind-exit* compiler::tail-recursion-mark "Tail-recursive call of ~s was replaced by iteration." compiler::*base-used* compiler::fun-val :level :cfun compiler::too-few-args compiler::cmperr compiler::make-fun compiler::c1body compiler::c1add-globals compiler::check-vdecl compiler::c1decl-body compiler::copy-info compiler::c1lambda-expr compiler::add-info compiler::vs-push compiler::wt-vs compiler::wt1 compiler::wt-clink compiler::clink compiler::ccb-vs-push compiler::c2expr compiler::wt-vs* system::defmacro* compiler::push-args compiler::wt-ccb-vs compiler::tail-recursion-possible compiler::c2psetq compiler::unwind-no-exit compiler::cmpnote compiler::unwind-exit (system::%init . #((system::putprop (lisp::quote lisp::flet) (lisp::quote compiler::c1flet) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::flet) (lisp::quote compiler::c2flet) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::labels) (lisp::quote compiler::c1labels) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote lisp::labels) (lisp::quote compiler::c2labels) (lisp::quote compiler::c2)) (system::putprop (lisp::quote lisp::macrolet) (lisp::quote compiler::c1macrolet) (lisp::quote compiler::c1special)) (system::putprop (lisp::quote compiler::call-local) (lisp::quote compiler::c2call-local) (lisp::quote compiler::c2)) (system::define-structure (lisp::quote compiler::fun) (lisp::quote compiler::fun-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote ((compiler::name lisp::nil lisp::t lisp::nil 0) (compiler::ref lisp::nil lisp::t lisp::nil 1) (compiler::ref-ccb lisp::nil lisp::t lisp::nil 2) (lisp::cfun lisp::nil lisp::t lisp::nil 3) (compiler::level lisp::nil lisp::t lisp::nil 4))) (lisp::quote compiler::copy-fun) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (compiler::make-fun)) (lisp::quote 5) (lisp::quote compiler::fun-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote compiler::make-fun) 0 16384 1) (system::*make-special (lisp::quote compiler::*funs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*funs*)) (lisp::setq compiler::*funs* lisp::nil)) (system::mfsfun (lisp::quote compiler::c1flet) 2 1) (system::mf (lisp::quote compiler::c2flet) 3) (system::mfsfun (lisp::quote compiler::c1labels) 4 1) (system::mf (lisp::quote compiler::c2labels) 5) (system::mfsfun (lisp::quote compiler::c1macrolet) 6 1) (system::mfsfun (lisp::quote compiler::c1local-fun) 7 1) (system::mfsfun (lisp::quote compiler::sch-local-fun) 8 1) (system::mfsfun (lisp::quote compiler::c1local-closure) 9 1) (system::mfsfun (lisp::quote compiler::c2call-local) 10 2) (system::debug (lisp::quote compiler::make-fun) (lisp::quote (compiler::name compiler::ref compiler::ref-ccb lisp::cfun compiler::level))) (system::debug (lisp::quote compiler::c1flet) (lisp::quote (compiler::*funs* #:g1376 compiler::def #:g1380 lisp::nil #:g1384 #:g1383))) (system::debug (lisp::quote compiler::c2flet) (lisp::quote (compiler::local-funs compiler::closures compiler::body lisp::nil compiler::*clink* compiler::*ccb-vs* compiler::def #:g1390))) (system::debug (lisp::quote compiler::c1labels) (lisp::quote (compiler::*funs* #:g1396 compiler::def #:g1398 lisp::nil #:g1407 #:g1413))) (system::debug (lisp::quote compiler::c2labels) (lisp::quote (compiler::local-funs compiler::closures compiler::body lisp::nil compiler::*clink* compiler::def #:g1423))) (system::debug (lisp::quote compiler::c1macrolet) (lisp::quote (compiler::*funs* lisp::nil #:g1429 compiler::def #:g1431))) (system::debug (lisp::quote compiler::c1local-fun) (lisp::quote (compiler::fun))) (system::debug (lisp::quote compiler::sch-local-fun) (lisp::quote (compiler::fun))) (system::debug (lisp::quote compiler::c1local-closure) (lisp::quote (compiler::fun))) (system::debug (lisp::quote compiler::c2call-local) (lisp::quote (lisp::nil lisp::nil compiler::*exit*))))))
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