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 / cmpwt.data < prev    next >
Encoding:
Text File  |  1994-05-10  |  2.3 KB  |  15 lines
  1.        
  2. #(#! 
  3. (lisp::in-package (lisp::quote user::compiler))
  4. #(compiler::*compiler-output1* #\/ "~10,,,,,,'eG" compiler::wt "The location ~s is undefined." compiler::*compiler-output2* compiler::*data* compiler::*next-vv* lisp::*print-radix* lisp::*print-base* lisp::*print-circle* lisp::*print-pretty* lisp::*print-level* lisp::*print-length* lisp::*print-case* :downcase lisp::*print-gensym* lisp::*print-array* lisp::*read-default-float-format* system::*print-package* system::*print-structure* compiler::*compiler-output-data* "A form or constant:~% ~s ~%has changed during the eval compile procedure!.~%  The changed form will be the one put in the compiled file" lisp::vector system::%init compiler::*fasd-data* "       ~%#(" "#! " "~%)~%" lisp::progn lisp::princ compiler::wt1 (lisp::princ "
  5. " compiler::*compiler-output2*) lisp::string "
  6. " compiler::wt-h1 (lisp::princ "
  7. " compiler::*compiler-output2*) (lisp::princ "
  8.     " compiler::*compiler-output1*) "
  9.     " (lisp::princ "
  10.     " compiler::*compiler-output1*) (lisp::princ "
  11. " compiler::*compiler-output1*) "
  12. " (lisp::princ "
  13. " compiler::*compiler-output1*) compiler::wt-loc compiler::cmpiler-error lisp::vector-push-extend system::hash-equal compiler::cmpwarn compiler::verify-data-vector lisp::coerce compiler::wt-fasd-data-file compiler::wt-data1 system::find-sharing-top system::write-fasd-top system::close-fasd lisp::concatenate (system::%init . #((system::warn-version 0) (system::mfvfun (lisp::quote compiler::wt-comment) 0 513) (system::mfsfun (lisp::quote compiler::wt1) 1 1) (system::mfsfun (lisp::quote compiler::wt-h1) 2 1) (system::*make-special (lisp::quote compiler::*fasd-data*)) (system::mfsfun (lisp::quote compiler::push-data-incf) 3 1) (system::mfsfun (lisp::quote compiler::wt-data1) 4 1) (system::mfsfun (lisp::quote compiler::verify-data-vector) 5 1) (system::mfvfun (lisp::quote compiler::add-init) 6 513) (system::mf (lisp::quote compiler::wt-data-file) 7) (system::mf (lisp::quote compiler::wt-fasd-data-file) 8) (system::mfsfun (lisp::quote compiler::wt-data-begin) 9 0) (system::mfsfun (lisp::quote compiler::wt-data-end) 10 0) (system::mfsfun (lisp::quote compiler::wt-data-package-operation) 11 1) (system::mm (lisp::quote compiler::wt) 12) (system::mm (lisp::quote compiler::wt-h) 13) (system::mm (lisp::quote compiler::wt-nl) 14) (system::mm (lisp::quote compiler::wt-nl1) 15))))
  14. )
  15.