home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmpvs.data < prev    next >
Encoding:
Text File  |  1994-05-10  |  2.1 KB  |  6 lines
  1.        
  2. #(#! 
  3. (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::*initial-ccb-vs* compiler::*clink* compiler::*ccb-vs* compiler::*cs* compiler::wt-vs compiler::wt1 (system::%init . #((system::warn-version 0) (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))))
  5. )
  6.