/[gcl]/gcl/clcs/clcs_install.data
ViewVC logotype

Diff of /gcl/clcs/clcs_install.data

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

revision 1.3.6.1 by camm, Tue Sep 23 18:39:17 2003 UTC revision 1.3.6.2 by camm, Tue Sep 23 19:32:30 2003 UTC
# Line 1  Line 1 
1                
2  #(#!  #(#!
3  (lisp::in-package "CONDITIONS")  (lisp::in-package "CONDITIONS")
4  #(conditions::definition-before-clcs conditions::*clcs-redefinitions* conditions::*restart-clusters* :name conditions::retry :function :report-function "Retry compiling file ~S." lisp::compile-file compiler::*error-p* "~S failed." #:g2294 "Retry compiling ~S." lisp::compile "~S failed." #:g2361 "Retry loading file ~S." lisp::load #:g2428 "Retry opening file ~S." lisp::open #:g2483 conditions::install-symbol conditions::revert-symbol conditions::make-restart conditions::error (system::%init . #((system::*make-special (lisp::quote conditions::*shadowed-symbols*)) (lisp::or (lisp::boundp (lisp::quote conditions::*shadowed-symbols*)) (lisp::setq conditions::*shadowed-symbols* (lisp::quote (conditions::break conditions::error conditions::cerror conditions::warn conditions::check-type conditions::assert conditions::etypecase conditions::ctypecase conditions::ecase conditions::ccase)))) (system::mf (lisp::quote conditions::install-symbol) 0) (system::mf (lisp::quote conditions::revert-symbol) 1) (system::*make-special (lisp::quote conditions::*clcs-redefinitions*)) (lisp::or (lisp::boundp (lisp::quote conditions::*clcs-redefinitions*)) (lisp::setq conditions::*clcs-redefinitions* (lisp::nconc (lisp::mapcar (lisp::function (lisp::lambda (lisp::symbol) (lisp::list (lisp::intern (lisp::symbol-name lisp::symbol) "LISP") lisp::symbol))) conditions::*shadowed-symbols*) (lisp::quote ((lisp::compile-file conditions::clcs-compile-file) (lisp::compile conditions::clcs-compile) (lisp::load conditions::clcs-load) (lisp::open conditions::clcs-open) (system::break-level system::clcs-break-level) (system::terminal-interrupt system::clcs-terminal-interrupt) (system::break-quit system::clcs-break-quit) (system::error-set conditions::clcs-error-set) (system::universal-error-handler conditions::clcs-universal-error-handler)))))) (system::mf (lisp::quote conditions::install-clcs-symbols) 2) (system::mf (lisp::quote conditions::revert-clcs-symbols) 3) (system::mf (lisp::quote conditions::clcs-compile-file) 4) (system::mf (lisp::quote conditions::clcs-compile) 5) (system::mf (lisp::quote conditions::clcs-load) 6) (system::mf (lisp::quote conditions::clcs-open) 7) (conditions::install-clcs-symbols) (system::debug (lisp::quote conditions::install-symbol) (lisp::quote (lisp::real conditions::clcs))) (system::debug (lisp::quote conditions::revert-symbol) (lisp::quote (lisp::real))) (system::debug (lisp::quote conditions::install-clcs-symbols) (lisp::quote (conditions::r))) (system::debug (lisp::quote conditions::revert-clcs-symbols) (lisp::quote (#:g2255 conditions::r))) (system::debug (lisp::quote conditions::clcs-compile-file) (lisp::quote (conditions::file conditions::args #:g2292))) (system::debug (lisp::quote conditions::clcs-compile) (lisp::quote (conditions::args #:g2359))) (system::debug (lisp::quote conditions::clcs-load) (lisp::quote (conditions::file conditions::args #:g2426))) (system::debug (lisp::quote conditions::clcs-open) (lisp::quote (conditions::file conditions::args #:g2481))))))  #(conditions::*shadowed-symbols* (conditions::break conditions::error conditions::cerror conditions::warn conditions::check-type conditions::assert conditions::etypecase conditions::ctypecase conditions::ecase conditions::ccase) conditions::definition-before-clcs conditions::*clcs-redefinitions* "LISP" ((lisp::compile-file conditions::clcs-compile-file) (lisp::compile conditions::clcs-compile) (lisp::load conditions::clcs-load) (lisp::open conditions::clcs-open) (system::break-level system::clcs-break-level) (system::terminal-interrupt system::clcs-terminal-interrupt) (system::break-quit system::clcs-break-quit) (system::error-set conditions::clcs-error-set) (system::universal-error-handler conditions::clcs-universal-error-handler)) conditions::*restart-clusters* :name conditions::retry :function :report-function "Retry compiling file ~S." lisp::compile-file compiler::*error-p* "~S failed." #:g2395 "Retry compiling ~S." lisp::compile "~S failed." #:g2467 "Retry loading file ~S." lisp::load #:g2539 "Retry opening file ~S." lisp::open #:g2599 system::*make-special conditions::install-symbol conditions::revert-symbol conditions::make-restart conditions::error conditions::install-clcs-symbols (system::%init . #((system::mfsfun (lisp::quote #0=#:|progn 'compile2183|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile2195|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2208|) 2 0) (#2#) (system::mfsfun (lisp::quote conditions::install-symbol) 3 2) (system::mfsfun (lisp::quote conditions::revert-symbol) 4 1) (system::mfsfun (lisp::quote #3=#:|progn 'compile2268|) 5 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2280|) 6 0) (#4#) (system::mfsfun (lisp::quote #5=#:|progn 'compile2297|) 7 0) (#5#) (system::mfsfun (lisp::quote conditions::install-clcs-symbols) 8 0) (system::mfsfun (lisp::quote conditions::revert-clcs-symbols) 9 0) (system::mf (lisp::quote conditions::clcs-compile-file) 10) (system::mf (lisp::quote conditions::clcs-compile) 11) (system::mf (lisp::quote conditions::clcs-load) 12) (system::mf (lisp::quote conditions::clcs-open) 13) (system::mfsfun (lisp::quote #6=#:|progn 'compile2837|) 14 0) (#6#) (system::debug (lisp::quote conditions::install-clcs-symbols) (lisp::quote (conditions::r))) (system::debug (lisp::quote conditions::revert-clcs-symbols) (lisp::quote (#:g2351 conditions::r))) (system::debug (lisp::quote conditions::clcs-compile-file) (lisp::quote (conditions::file conditions::args #:g2393))) (system::debug (lisp::quote conditions::clcs-compile) (lisp::quote (conditions::args #:g2465))) (system::debug (lisp::quote conditions::clcs-load) (lisp::quote (conditions::file conditions::args #:g2537))) (system::debug (lisp::quote conditions::clcs-open) (lisp::quote (conditions::file conditions::args #:g2597))))))
5  )  )

Legend:
Removed from v.1.3.6.1  
changed lines
  Added in v.1.3.6.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26