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

Diff of /gcl/cmpnew/gcl_cmpvs.data

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:34 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  #(compiler::*level* compiler::*vs* compiler::*max-vs* compiler::vs compiler::*compiler-output1* compiler::cvar compiler::cs compiler::*vcs-used* compiler::*initial-ccb-vs* compiler::*clink* compiler::*ccb-vs* compiler::*cs* compiler::wt-vs compiler::wt1 (system::%init . #((system::putprop (lisp::quote compiler::vs) (lisp::quote compiler::set-vs) (lisp::quote compiler::set-loc)) (system::putprop (lisp::quote compiler::vs) (lisp::quote compiler::wt-vs) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::vs*) (lisp::quote compiler::wt-vs*) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::ccb-vs) (lisp::quote compiler::wt-ccb-vs) (lisp::quote compiler::wt-loc)) (system::*make-special (lisp::quote compiler::*vs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*vs*)) (lisp::setq compiler::*vs* 0)) (system::*make-special (lisp::quote compiler::*max-vs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*max-vs*)) (lisp::setq compiler::*max-vs* 0)) (system::*make-special (lisp::quote compiler::*clink*)) (lisp::or (lisp::boundp (lisp::quote compiler::*clink*)) (lisp::setq compiler::*clink* lisp::nil)) (system::*make-special (lisp::quote compiler::*ccb-vs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*ccb-vs*)) (lisp::setq compiler::*ccb-vs* 0)) (system::*make-special (lisp::quote compiler::*initial-ccb-vs*)) (system::*make-special (lisp::quote compiler::*level*)) (lisp::or (lisp::boundp (lisp::quote compiler::*level*)) (lisp::setq compiler::*level* 0)) (system::mfsfun (lisp::quote compiler::vs-push) 0 0) (system::mfsfun (lisp::quote compiler::set-vs) 1 2) (system::mfsfun (lisp::quote compiler::wt-vs) 2 1) (system::mfsfun (lisp::quote compiler::wt-vs*) 3 1) (system::mfsfun (lisp::quote compiler::wt-ccb-vs) 4 1) (system::mfsfun (lisp::quote compiler::clink) 5 1) (system::mfvfun (lisp::quote compiler::wt-clink) 6 256) (system::mfsfun (lisp::quote compiler::ccb-vs-push) 7 0) (system::mfsfun (lisp::quote compiler::cvs-push) 8 0) (system::mfsfun (lisp::quote compiler::wt-list) 9 1))))  #(compiler::*level* compiler::*vs* compiler::*max-vs* compiler::vs compiler::*compiler-output1* compiler::cvar compiler::cs compiler::*vcs-used* compiler::*initial-ccb-vs* compiler::*clink* compiler::*ccb-vs* compiler::*cs* compiler::wt-vs compiler::wt1 (system::%init . #((system::putprop (lisp::quote compiler::vs) (lisp::quote compiler::set-vs) (lisp::quote compiler::set-loc)) (system::putprop (lisp::quote compiler::vs) (lisp::quote compiler::wt-vs) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::vs*) (lisp::quote compiler::wt-vs*) (lisp::quote compiler::wt-loc)) (system::putprop (lisp::quote compiler::ccb-vs) (lisp::quote compiler::wt-ccb-vs) (lisp::quote compiler::wt-loc)) (system::*make-special (lisp::quote compiler::*vs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*vs*)) (lisp::setq compiler::*vs* 0)) (system::*make-special (lisp::quote compiler::*max-vs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*max-vs*)) (lisp::setq compiler::*max-vs* 0)) (system::*make-special (lisp::quote compiler::*clink*)) (lisp::or (lisp::boundp (lisp::quote compiler::*clink*)) (lisp::setq compiler::*clink* lisp::nil)) (system::*make-special (lisp::quote compiler::*ccb-vs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*ccb-vs*)) (lisp::setq compiler::*ccb-vs* 0)) (system::*make-special (lisp::quote compiler::*initial-ccb-vs*)) (system::*make-special (lisp::quote compiler::*level*)) (lisp::or (lisp::boundp (lisp::quote compiler::*level*)) (lisp::setq compiler::*level* 0)) (system::mfsfun (lisp::quote compiler::vs-push) 0 0) (system::mfsfun (lisp::quote compiler::set-vs) 1 2) (system::mfsfun (lisp::quote compiler::wt-vs) 2 1) (system::mfsfun (lisp::quote compiler::wt-vs*) 3 1) (system::mfsfun (lisp::quote compiler::wt-ccb-vs) 4 1) (system::mfsfun (lisp::quote compiler::clink) 5 1) (system::mfvfun (lisp::quote compiler::wt-clink) 6 256) (system::mfsfun (lisp::quote compiler::ccb-vs-push) 7 0) (system::mfsfun (lisp::quote compiler::cvs-push) 8 0) (system::mfsfun (lisp::quote compiler::wt-list) 9 1) (system::debug (lisp::quote compiler::wt-clink) (lisp::quote (compiler::clink))))))
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