/[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.8 by camm, Thu Oct 23 15:30:04 2003 UTC revision 1.9 by camm, Thu Oct 23 17:14:28 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.~%" #:g3189 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 'compile2195|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile2207|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2220|) 2 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile2236|) 3 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2248|) 4 0) (#4#) (system::mfsfun (lisp::quote #5=#:|progn 'compile2261|) 5 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2277|) 6 0) (#6#) (system::mfsfun (lisp::quote #7=#:|progn 'compile2289|) 7 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile2302|) 8 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile2318|) 9 0) (#9#) (system::mfsfun (lisp::quote #10=#:|progn 'compile2330|) 10 0) (#10#) (system::mfsfun (lisp::quote #11=#:|progn 'compile2343|) 11 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile2359|) 12 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile2371|) 13 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile2384|) 14 0) (#14#) (system::mfsfun (lisp::quote #15=#:|progn 'compile2400|) 15 0) (#15#) (system::mfsfun (lisp::quote #16=#:|progn 'compile2412|) 16 0) (#16#) (system::mfsfun (lisp::quote #17=#:|progn 'compile2425|) 17 0) (#17#) (system::mfsfun (lisp::quote #18=#:|progn 'compile2441|) 18 0) (#18#) (system::mfsfun (lisp::quote #19=#:|progn 'compile2453|) 19 0) (#19#) (system::mfsfun (lisp::quote #20=#:|progn 'compile2466|) 20 0) (#20#) (system::mfsfun (lisp::quote #21=#:|progn 'compile2482|) 21 0) (#21#) (system::mfsfun (lisp::quote #22=#:|progn 'compile2494|) 22 0) (#22#) (system::mfsfun (lisp::quote #23=#:|progn 'compile2511|) 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 'compile2623|) 28 0) (#24#) (system::mfsfun (lisp::quote #25=#:|progn 'compile2651|) 29 0) (#25#) (system::mfsfun (lisp::quote #26=#:|progn 'compile2663|) 30 0) (#26#) (system::mfsfun (lisp::quote #27=#:|progn 'compile2687|) 31 0) (#27#) (system::mfsfun (lisp::quote #28=#:|progn 'compile2711|) 32 0) (#28#) (system::mfsfun (lisp::quote #29=#:|progn 'compile2723|) 33 0) (#29#) (system::mfsfun (lisp::quote #30=#:|progn 'compile2747|) 34 0) (#30#) (system::mfsfun (lisp::quote #31=#:|progn 'compile2771|) 35 0) (#31#) (system::mfsfun (lisp::quote #32=#:|progn 'compile2783|) 36 0) (#32#) (system::mfsfun (lisp::quote #33=#:|progn 'compile2807|) 37 0) (#33#) (system::mfsfun (lisp::quote #34=#:|progn 'compile2831|) 38 0) (#34#) (system::mfsfun (lisp::quote #35=#:|progn 'compile2843|) 39 0) (#35#) (system::mfsfun (lisp::quote #36=#:|progn 'compile2867|) 40 0) (#36#) (system::mfsfun (lisp::quote #37=#:|progn 'compile2891|) 41 0) (#37#) (system::mfsfun (lisp::quote #38=#:|progn 'compile2903|) 42 0) (#38#) (system::mfsfun (lisp::quote #39=#:|progn 'compile2919|) 43 0) (#39#) (system::mfsfun (lisp::quote #40=#:|progn 'compile2931|) 44 0) (#40#) (system::mfsfun (lisp::quote #41=#:|progn 'compile2944|) 45 0) (#41#) (system::mfvfun (lisp::quote conditions::show-restarts) 46 768) (system::mfsfun (lisp::quote #42=#:|progn 'compile3035|) 47 0) (#42#) (system::mfsfun (lisp::quote #43=#:|progn 'compile3047|) 48 0) (#43#) (system::mfsfun (lisp::quote #44=#:|progn 'compile3060|) 49 0) (#44#) (system::mfsfun (lisp::quote #45=#:|progn 'compile3076|) 50 0) (#45#) (system::mfsfun (lisp::quote #46=#:|progn 'compile3088|) 51 0) (#46#) (system::mfsfun (lisp::quote #47=#:|progn 'compile3101|) 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 #:g3187))))))               ~% :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.~%" #:g3188 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 'compile2194|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile2206|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2219|) 2 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile2235|) 3 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2247|) 4 0) (#4#) (system::mfsfun (lisp::quote #5=#:|progn 'compile2260|) 5 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2276|) 6 0) (#6#) (system::mfsfun (lisp::quote #7=#:|progn 'compile2288|) 7 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile2301|) 8 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile2317|) 9 0) (#9#) (system::mfsfun (lisp::quote #10=#:|progn 'compile2329|) 10 0) (#10#) (system::mfsfun (lisp::quote #11=#:|progn 'compile2342|) 11 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile2358|) 12 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile2370|) 13 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile2383|) 14 0) (#14#) (system::mfsfun (lisp::quote #15=#:|progn 'compile2399|) 15 0) (#15#) (system::mfsfun (lisp::quote #16=#:|progn 'compile2411|) 16 0) (#16#) (system::mfsfun (lisp::quote #17=#:|progn 'compile2424|) 17 0) (#17#) (system::mfsfun (lisp::quote #18=#:|progn 'compile2440|) 18 0) (#18#) (system::mfsfun (lisp::quote #19=#:|progn 'compile2452|) 19 0) (#19#) (system::mfsfun (lisp::quote #20=#:|progn 'compile2465|) 20 0) (#20#) (system::mfsfun (lisp::quote #21=#:|progn 'compile2481|) 21 0) (#21#) (system::mfsfun (lisp::quote #22=#:|progn 'compile2493|) 22 0) (#22#) (system::mfsfun (lisp::quote #23=#:|progn 'compile2510|) 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 'compile2622|) 28 0) (#24#) (system::mfsfun (lisp::quote #25=#:|progn 'compile2650|) 29 0) (#25#) (system::mfsfun (lisp::quote #26=#:|progn 'compile2662|) 30 0) (#26#) (system::mfsfun (lisp::quote #27=#:|progn 'compile2686|) 31 0) (#27#) (system::mfsfun (lisp::quote #28=#:|progn 'compile2710|) 32 0) (#28#) (system::mfsfun (lisp::quote #29=#:|progn 'compile2722|) 33 0) (#29#) (system::mfsfun (lisp::quote #30=#:|progn 'compile2746|) 34 0) (#30#) (system::mfsfun (lisp::quote #31=#:|progn 'compile2770|) 35 0) (#31#) (system::mfsfun (lisp::quote #32=#:|progn 'compile2782|) 36 0) (#32#) (system::mfsfun (lisp::quote #33=#:|progn 'compile2806|) 37 0) (#33#) (system::mfsfun (lisp::quote #34=#:|progn 'compile2830|) 38 0) (#34#) (system::mfsfun (lisp::quote #35=#:|progn 'compile2842|) 39 0) (#35#) (system::mfsfun (lisp::quote #36=#:|progn 'compile2866|) 40 0) (#36#) (system::mfsfun (lisp::quote #37=#:|progn 'compile2890|) 41 0) (#37#) (system::mfsfun (lisp::quote #38=#:|progn 'compile2902|) 42 0) (#38#) (system::mfsfun (lisp::quote #39=#:|progn 'compile2918|) 43 0) (#39#) (system::mfsfun (lisp::quote #40=#:|progn 'compile2930|) 44 0) (#40#) (system::mfsfun (lisp::quote #41=#:|progn 'compile2943|) 45 0) (#41#) (system::mfvfun (lisp::quote conditions::show-restarts) 46 768) (system::mfsfun (lisp::quote #42=#:|progn 'compile3034|) 47 0) (#42#) (system::mfsfun (lisp::quote #43=#:|progn 'compile3046|) 48 0) (#43#) (system::mfsfun (lisp::quote #44=#:|progn 'compile3059|) 49 0) (#44#) (system::mfsfun (lisp::quote #45=#:|progn 'compile3075|) 50 0) (#45#) (system::mfsfun (lisp::quote #46=#:|progn 'compile3087|) 51 0) (#46#) (system::mfsfun (lisp::quote #47=#:|progn 'compile3100|) 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 #:g3186))))))
8  )  )

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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