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

Diff of /gcl/clcs/clcs_debugger.data

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

revision 1.5 by camm, Tue Sep 23 21:48:26 2003 UTC revision 1.6 by camm, Fri Oct 3 16:03:15 2003 UTC
# Line 4  Line 4 
4  #(conditions::*debug-level* conditions::*debug-abort* conditions::*debug-continue* conditions::*debug-condition* conditions::*debug-restarts* conditions::*number-of-debug-restarts* conditions::*debug-eval* lisp::eval conditions::*debug-print* "~&~{~S~^,~%~}" lisp::get (lisp::quote conditions::debug-command) (lisp::quote conditions::debug-command-argument-count) lisp::progn lisp::setf conditions::debug-command lisp::quote lisp::function lisp::lambda conditions::debug-command-argument-count "~&Debug ~D> " #\: lisp::*standard-input* lisp::*package* "KEYWORD" :eval :abort "~&There is no way to abort.~%" :continue "~&There is no way to continue.~%" :error "~&~A~%" :help "~&You are in a portable debugger.~  #(conditions::*debug-level* conditions::*debug-abort* conditions::*debug-continue* conditions::*debug-condition* conditions::*debug-restarts* conditions::*number-of-debug-restarts* conditions::*debug-eval* lisp::eval conditions::*debug-print* "~&~{~S~^,~%~}" lisp::get (lisp::quote conditions::debug-command) (lisp::quote conditions::debug-command-argument-count) lisp::progn lisp::setf conditions::debug-command lisp::quote lisp::function lisp::lambda conditions::debug-command-argument-count "~&Debug ~D> " #\: lisp::*standard-input* lisp::*package* "KEYWORD" :eval :abort "~&There is no way to abort.~%" :continue "~&There is no way to continue.~%" :error "~&~A~%" :help "~&You are in a portable debugger.~
5               ~%Type a debugger command or a form to evaluate.~               ~%Type a debugger command or a form to evaluate.~
6               ~%Commands are:~%" "~& :EVAL form     Evaluate a form.~               ~%Commands are:~%" "~& :EVAL form     Evaluate a form.~
7               ~% :HELP          Show this text.~%" "~& :ABORT         Exit by ABORT.~%" "~& :CONTINUE      Exit by CONTINUE.~%" "~& :ERROR         Reprint error message.~%" conditions::*debug-command-prefix* ":" "~& ~A~A " "~D" "~A" #\Space "(Abort) " "(Continue) " "~A" "~%" conditions::*debugger-hook* conditions::*debugger-function* conditions::standard-debugger "Debug" lisp::simple-condition conditions::debug conditions::abort conditions::continue "~&~A~%" conditions::*restart-clusters* :name :function :report-function "Return to debug level ~D." "~&No such restart." "~&Too ~:[few~;many~] arguments to ~A." "~&~S is not a debugger command.~%" #:g3180 system::*make-special lisp::nil lisp::make-string-input-stream lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::make-string-output-stream lisp::get-output-stream-string conditions::coerce-to-condition conditions::compute-restarts conditions::find-restart conditions::show-restarts conditions::read-debug-command conditions::execute-debugger-command conditions::make-restart conditions::invoke-restart conditions::invoke-restart-interactively (system::%init . #((system::setvv 73 (system::mc lisp::nil 61)) (system::setvv 72 (system::mc lisp::nil 60)) (system::setvv 71 (system::mc lisp::nil 59)) (system::setvv 70 (system::mc lisp::nil 58)) (system::setvv 69 (system::mc lisp::nil 57)) (system::setvv 67 (system::mc lisp::nil 56)) (system::mfsfun (lisp::quote #0=#:|progn 'compile2186|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile2198|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2211|) 2 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile2227|) 3 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2239|) 4 0) (#4#) (system::mfsfun (lisp::quote #5=#:|progn 'compile2252|) 5 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2268|) 6 0) (#6#) (system::mfsfun (lisp::quote #7=#:|progn 'compile2280|) 7 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile2293|) 8 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile2309|) 9 0) (#9#) (system::mfsfun (lisp::quote #10=#:|progn 'compile2321|) 10 0) (#10#) (system::mfsfun (lisp::quote #11=#:|progn 'compile2334|) 11 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile2350|) 12 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile2362|) 13 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile2375|) 14 0) (#14#) (system::mfsfun (lisp::quote #15=#:|progn 'compile2391|) 15 0) (#15#) (system::mfsfun (lisp::quote #16=#:|progn 'compile2403|) 16 0) (#16#) (system::mfsfun (lisp::quote #17=#:|progn 'compile2416|) 17 0) (#17#) (system::mfsfun (lisp::quote #18=#:|progn 'compile2432|) 18 0) (#18#) (system::mfsfun (lisp::quote #19=#:|progn 'compile2444|) 19 0) (#19#) (system::mfsfun (lisp::quote #20=#:|progn 'compile2457|) 20 0) (#20#) (system::mfsfun (lisp::quote #21=#:|progn 'compile2473|) 21 0) (#21#) (system::mfsfun (lisp::quote #22=#:|progn 'compile2485|) 22 0) (#22#) (system::mfsfun (lisp::quote #23=#:|progn 'compile2502|) 23 0) (#23#) (system::mm (lisp::quote conditions::debug-command) 24) (system::mm (lisp::quote conditions::debug-command-argument-count) 25) (system::mm (lisp::quote conditions::define-debug-command) 26) (system::mfsfun (lisp::quote conditions::read-debug-command) 27 0) (system::mfsfun (lisp::quote #24=#:|progn 'compile2614|) 28 0) (#24#) (system::mfsfun (lisp::quote #25=#:|progn 'compile2642|) 29 0) (#25#) (system::mfsfun (lisp::quote #26=#:|progn 'compile2654|) 30 0) (#26#) (system::mfsfun (lisp::quote #27=#:|progn 'compile2678|) 31 0) (#27#) (system::mfsfun (lisp::quote #28=#:|progn 'compile2702|) 32 0) (#28#) (system::mfsfun (lisp::quote #29=#:|progn 'compile2714|) 33 0) (#29#) (system::mfsfun (lisp::quote #30=#:|progn 'compile2738|) 34 0) (#30#) (system::mfsfun (lisp::quote #31=#:|progn 'compile2762|) 35 0) (#31#) (system::mfsfun (lisp::quote #32=#:|progn 'compile2774|) 36 0) (#32#) (system::mfsfun (lisp::quote #33=#:|progn 'compile2798|) 37 0) (#33#) (system::mfsfun (lisp::quote #34=#:|progn 'compile2822|) 38 0) (#34#) (system::mfsfun (lisp::quote #35=#:|progn 'compile2834|) 39 0) (#35#) (system::mfsfun (lisp::quote #36=#:|progn 'compile2858|) 40 0) (#36#) (system::mfsfun (lisp::quote #37=#:|progn 'compile2882|) 41 0) (#37#) (system::mfsfun (lisp::quote #38=#:|progn 'compile2894|) 42 0) (#38#) (system::mfsfun (lisp::quote #39=#:|progn 'compile2910|) 43 0) (#39#) (system::mfsfun (lisp::quote #40=#:|progn 'compile2922|) 44 0) (#40#) (system::mfsfun (lisp::quote #41=#:|progn 'compile2935|) 45 0) (#41#) (system::mfvfun (lisp::quote conditions::show-restarts) 46 768) (system::mfsfun (lisp::quote #42=#:|progn 'compile3026|) 47 0) (#42#) (system::mfsfun (lisp::quote #43=#:|progn 'compile3038|) 48 0) (#43#) (system::mfsfun (lisp::quote #44=#:|progn 'compile3051|) 49 0) (#44#) (system::mfsfun (lisp::quote #45=#:|progn 'compile3067|) 50 0) (#45#) (system::mfsfun (lisp::quote #46=#:|progn 'compile3079|) 51 0) (#46#) (system::mfsfun (lisp::quote #47=#:|progn 'compile3092|) 52 0) (#47#) (system::mf (lisp::quote conditions::invoke-debugger) 53) (system::mfsfun (lisp::quote conditions::standard-debugger) 54 1) (system::mf (lisp::quote conditions::execute-debugger-command) 55) (system::debug (lisp::quote conditions::show-restarts) (lisp::quote (conditions::restarts lisp::max conditions::target-column))) (system::debug (lisp::quote conditions::invoke-debugger) (lisp::quote (conditions::datum conditions::arguments))) (system::debug (lisp::quote conditions::standard-debugger) (lisp::quote (conditions::*debug-level* conditions::*debug-restarts* lisp::nil conditions::*debug-abort*))) (system::debug (lisp::quote conditions::execute-debugger-command) (lisp::quote (conditions::cmd conditions::args conditions::level #:g3178))))))               ~% :HELP          Show this text.~%" "~& :ABORT         Exit by ABORT.~%" "~& :CONTINUE      Exit by CONTINUE.~%" "~& :ERROR         Reprint error message.~%" conditions::*debug-command-prefix* ":" "~& ~A~A " "~D" "~A" #\Space "(Abort) " "(Continue) " "~A" "~%" conditions::*debugger-hook* conditions::*debugger-function* conditions::standard-debugger "Debug" lisp::simple-condition conditions::debug conditions::abort conditions::continue "~&~A~%" conditions::*restart-clusters* :name :function :report-function "Return to debug level ~D." "~&No such restart." "~&Too ~:[few~;many~] arguments to ~A." "~&~S is not a debugger command.~%" #:g3185 system::*make-special lisp::nil lisp::make-string-input-stream lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::make-string-output-stream lisp::get-output-stream-string conditions::coerce-to-condition conditions::compute-restarts conditions::find-restart conditions::show-restarts conditions::read-debug-command conditions::execute-debugger-command conditions::make-restart conditions::invoke-restart conditions::invoke-restart-interactively (system::%init . #((system::setvv 73 (system::mc lisp::nil 61)) (system::setvv 72 (system::mc lisp::nil 60)) (system::setvv 71 (system::mc lisp::nil 59)) (system::setvv 70 (system::mc lisp::nil 58)) (system::setvv 69 (system::mc lisp::nil 57)) (system::setvv 67 (system::mc lisp::nil 56)) (system::mfsfun (lisp::quote #0=#:|progn 'compile2191|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile2203|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2216|) 2 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile2232|) 3 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2244|) 4 0) (#4#) (system::mfsfun (lisp::quote #5=#:|progn 'compile2257|) 5 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2273|) 6 0) (#6#) (system::mfsfun (lisp::quote #7=#:|progn 'compile2285|) 7 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile2298|) 8 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile2314|) 9 0) (#9#) (system::mfsfun (lisp::quote #10=#:|progn 'compile2326|) 10 0) (#10#) (system::mfsfun (lisp::quote #11=#:|progn 'compile2339|) 11 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile2355|) 12 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile2367|) 13 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile2380|) 14 0) (#14#) (system::mfsfun (lisp::quote #15=#:|progn 'compile2396|) 15 0) (#15#) (system::mfsfun (lisp::quote #16=#:|progn 'compile2408|) 16 0) (#16#) (system::mfsfun (lisp::quote #17=#:|progn 'compile2421|) 17 0) (#17#) (system::mfsfun (lisp::quote #18=#:|progn 'compile2437|) 18 0) (#18#) (system::mfsfun (lisp::quote #19=#:|progn 'compile2449|) 19 0) (#19#) (system::mfsfun (lisp::quote #20=#:|progn 'compile2462|) 20 0) (#20#) (system::mfsfun (lisp::quote #21=#:|progn 'compile2478|) 21 0) (#21#) (system::mfsfun (lisp::quote #22=#:|progn 'compile2490|) 22 0) (#22#) (system::mfsfun (lisp::quote #23=#:|progn 'compile2507|) 23 0) (#23#) (system::mm (lisp::quote conditions::debug-command) 24) (system::mm (lisp::quote conditions::debug-command-argument-count) 25) (system::mm (lisp::quote conditions::define-debug-command) 26) (system::mfsfun (lisp::quote conditions::read-debug-command) 27 0) (system::mfsfun (lisp::quote #24=#:|progn 'compile2619|) 28 0) (#24#) (system::mfsfun (lisp::quote #25=#:|progn 'compile2647|) 29 0) (#25#) (system::mfsfun (lisp::quote #26=#:|progn 'compile2659|) 30 0) (#26#) (system::mfsfun (lisp::quote #27=#:|progn 'compile2683|) 31 0) (#27#) (system::mfsfun (lisp::quote #28=#:|progn 'compile2707|) 32 0) (#28#) (system::mfsfun (lisp::quote #29=#:|progn 'compile2719|) 33 0) (#29#) (system::mfsfun (lisp::quote #30=#:|progn 'compile2743|) 34 0) (#30#) (system::mfsfun (lisp::quote #31=#:|progn 'compile2767|) 35 0) (#31#) (system::mfsfun (lisp::quote #32=#:|progn 'compile2779|) 36 0) (#32#) (system::mfsfun (lisp::quote #33=#:|progn 'compile2803|) 37 0) (#33#) (system::mfsfun (lisp::quote #34=#:|progn 'compile2827|) 38 0) (#34#) (system::mfsfun (lisp::quote #35=#:|progn 'compile2839|) 39 0) (#35#) (system::mfsfun (lisp::quote #36=#:|progn 'compile2863|) 40 0) (#36#) (system::mfsfun (lisp::quote #37=#:|progn 'compile2887|) 41 0) (#37#) (system::mfsfun (lisp::quote #38=#:|progn 'compile2899|) 42 0) (#38#) (system::mfsfun (lisp::quote #39=#:|progn 'compile2915|) 43 0) (#39#) (system::mfsfun (lisp::quote #40=#:|progn 'compile2927|) 44 0) (#40#) (system::mfsfun (lisp::quote #41=#:|progn 'compile2940|) 45 0) (#41#) (system::mfvfun (lisp::quote conditions::show-restarts) 46 768) (system::mfsfun (lisp::quote #42=#:|progn 'compile3031|) 47 0) (#42#) (system::mfsfun (lisp::quote #43=#:|progn 'compile3043|) 48 0) (#43#) (system::mfsfun (lisp::quote #44=#:|progn 'compile3056|) 49 0) (#44#) (system::mfsfun (lisp::quote #45=#:|progn 'compile3072|) 50 0) (#45#) (system::mfsfun (lisp::quote #46=#:|progn 'compile3084|) 51 0) (#46#) (system::mfsfun (lisp::quote #47=#:|progn 'compile3097|) 52 0) (#47#) (system::mf (lisp::quote conditions::invoke-debugger) 53) (system::mfsfun (lisp::quote conditions::standard-debugger) 54 1) (system::mf (lisp::quote conditions::execute-debugger-command) 55) (system::debug (lisp::quote conditions::show-restarts) (lisp::quote (conditions::restarts lisp::max conditions::target-column))) (system::debug (lisp::quote conditions::invoke-debugger) (lisp::quote (conditions::datum conditions::arguments))) (system::debug (lisp::quote conditions::standard-debugger) (lisp::quote (conditions::*debug-level* conditions::*debug-restarts* lisp::nil conditions::*debug-abort*))) (system::debug (lisp::quote conditions::execute-debugger-command) (lisp::quote (conditions::cmd conditions::args conditions::level #:g3183))))))
8  )  )

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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