/[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.3 by camm, Thu Feb 27 23:54:22 2003 UTC revision 1.3.6.1 by camm, Tue Sep 23 18:39:17 2003 UTC
# Line 1  Line 1 
1                
2  #(#!  #(#!
3  (lisp::in-package "CONDITIONS")  (lisp::in-package "CONDITIONS")
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::*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.~  #(lisp::get #0=(lisp::quote conditions::debug-command) #1=(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> " conditions::*debug-level* #\: lisp::*standard-input* lisp::*package* "KEYWORD" :eval conditions::*debug-print* conditions::*debug-eval* conditions::*debug-abort* "~&There is no way to abort.~%" conditions::*debug-continue* "~&There is no way to continue.~%" "~&~A~%" conditions::*debug-condition* "~&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:~%" conditions::*debug-restarts* conditions::*number-of-debug-restarts* "~& :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.~%" #:g3151 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 72 (system::mc lisp::nil 61)) (system::setvv 71 (system::mc lisp::nil 60)) (system::setvv 70 (system::mc lisp::nil 59)) (system::setvv 69 (system::mc lisp::nil 58)) (system::setvv 68 (system::mc lisp::nil 57)) (system::setvv 66 (system::mc lisp::nil 56)) (system::mfsfun (lisp::quote #0=#:|progn 'compile2181|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile2193|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2206|) 2 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile2222|) 3 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2234|) 4 0) (#4#) (system::mfsfun (lisp::quote #5=#:|progn 'compile2247|) 5 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2263|) 6 0) (#6#) (system::mfsfun (lisp::quote #7=#:|progn 'compile2275|) 7 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile2288|) 8 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile2304|) 9 0) (#9#) (system::mfsfun (lisp::quote #10=#:|progn 'compile2316|) 10 0) (#10#) (system::mfsfun (lisp::quote #11=#:|progn 'compile2329|) 11 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile2345|) 12 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile2357|) 13 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile2370|) 14 0) (#14#) (system::mfsfun (lisp::quote #15=#:|progn 'compile2386|) 15 0) (#15#) (system::mfsfun (lisp::quote #16=#:|progn 'compile2398|) 16 0) (#16#) (system::mfsfun (lisp::quote #17=#:|progn 'compile2411|) 17 0) (#17#) (system::mfsfun (lisp::quote #18=#:|progn 'compile2427|) 18 0) (#18#) (system::mfsfun (lisp::quote #19=#:|progn 'compile2439|) 19 0) (#19#) (system::mfsfun (lisp::quote #20=#:|progn 'compile2452|) 20 0) (#20#) (system::mfsfun (lisp::quote #21=#:|progn 'compile2468|) 21 0) (#21#) (system::mfsfun (lisp::quote #22=#:|progn 'compile2480|) 22 0) (#22#) (system::mfsfun (lisp::quote #23=#:|progn 'compile2497|) 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 'compile2593|) 28 0) (#24#) (system::mfsfun (lisp::quote #25=#:|progn 'compile2621|) 29 0) (#25#) (system::mfsfun (lisp::quote #26=#:|progn 'compile2633|) 30 0) (#26#) (system::mfsfun (lisp::quote #27=#:|progn 'compile2657|) 31 0) (#27#) (system::mfsfun (lisp::quote #28=#:|progn 'compile2681|) 32 0) (#28#) (system::mfsfun (lisp::quote #29=#:|progn 'compile2693|) 33 0) (#29#) (system::mfsfun (lisp::quote #30=#:|progn 'compile2717|) 34 0) (#30#) (system::mfsfun (lisp::quote #31=#:|progn 'compile2741|) 35 0) (#31#) (system::mfsfun (lisp::quote #32=#:|progn 'compile2753|) 36 0) (#32#) (system::mfsfun (lisp::quote #33=#:|progn 'compile2777|) 37 0) (#33#) (system::mfsfun (lisp::quote #34=#:|progn 'compile2801|) 38 0) (#34#) (system::mfsfun (lisp::quote #35=#:|progn 'compile2813|) 39 0) (#35#) (system::mfsfun (lisp::quote #36=#:|progn 'compile2837|) 40 0) (#36#) (system::mfsfun (lisp::quote #37=#:|progn 'compile2861|) 41 0) (#37#) (system::mfsfun (lisp::quote #38=#:|progn 'compile2873|) 42 0) (#38#) (system::mfsfun (lisp::quote #39=#:|progn 'compile2889|) 43 0) (#39#) (system::mfsfun (lisp::quote #40=#:|progn 'compile2901|) 44 0) (#40#) (system::mfsfun (lisp::quote #41=#:|progn 'compile2914|) 45 0) (#41#) (system::mfvfun (lisp::quote conditions::show-restarts) 46 768) (system::mfsfun (lisp::quote #42=#:|progn 'compile2997|) 47 0) (#42#) (system::mfsfun (lisp::quote #43=#:|progn 'compile3009|) 48 0) (#43#) (system::mfsfun (lisp::quote #44=#:|progn 'compile3022|) 49 0) (#44#) (system::mfsfun (lisp::quote #45=#:|progn 'compile3038|) 50 0) (#45#) (system::mfsfun (lisp::quote #46=#:|progn 'compile3050|) 51 0) (#46#) (system::mfsfun (lisp::quote #47=#:|progn 'compile3063|) 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))))               ~% :HELP          Show this text.~%" "~& :ABORT         Exit by ABORT.~%" "~& :CONTINUE      Exit by CONTINUE.~%" "~& :ERROR         Reprint error message.~%" "~& ~A~A " conditions::*debug-command-prefix* "~D" "~A" #\Space "(Abort) " "(Continue) " "~A" "~%" "Debug" lisp::simple-condition conditions::debug conditions::*debugger-hook* conditions::*debugger-function* 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.~%" #:g2601 lisp::make-string-input-stream conditions::invoke-restart-interactively conditions::show-restarts lisp::make-string-output-stream lisp::get-output-stream-string conditions::coerce-to-condition conditions::compute-restarts conditions::find-restart conditions::read-debug-command conditions::execute-debugger-command conditions::make-restart conditions::invoke-restart (system::%init . #((system::*make-special (lisp::quote conditions::*debug-level*)) (lisp::or (lisp::boundp (lisp::quote conditions::*debug-level*)) (lisp::setq conditions::*debug-level* 0)) (system::*make-special (lisp::quote conditions::*debug-abort*)) (lisp::or (lisp::boundp (lisp::quote conditions::*debug-abort*)) (lisp::setq conditions::*debug-abort* lisp::nil)) (system::*make-special (lisp::quote conditions::*debug-continue*)) (lisp::or (lisp::boundp (lisp::quote conditions::*debug-continue*)) (lisp::setq conditions::*debug-continue* lisp::nil)) (system::*make-special (lisp::quote conditions::*debug-condition*)) (lisp::or (lisp::boundp (lisp::quote conditions::*debug-condition*)) (lisp::setq conditions::*debug-condition* lisp::nil)) (system::*make-special (lisp::quote conditions::*debug-restarts*)) (lisp::or (lisp::boundp (lisp::quote conditions::*debug-restarts*)) (lisp::setq conditions::*debug-restarts* lisp::nil)) (system::*make-special (lisp::quote conditions::*number-of-debug-restarts*)) (lisp::or (lisp::boundp (lisp::quote conditions::*number-of-debug-restarts*)) (lisp::setq conditions::*number-of-debug-restarts* 0)) (system::*make-special (lisp::quote conditions::*debug-eval*)) (lisp::or (lisp::boundp (lisp::quote conditions::*debug-eval*)) (lisp::setq conditions::*debug-eval* (lisp::quote lisp::eval))) (system::*make-special (lisp::quote conditions::*debug-print*)) (lisp::or (lisp::boundp (lisp::quote conditions::*debug-print*)) (lisp::setq conditions::*debug-print* (lisp::function (lisp::lambda (lisp::values) (lisp::format lisp::t "~&~{~S~^,~%~}" lisp::values))))) (system::mm (lisp::quote conditions::debug-command) 0) (system::mm (lisp::quote conditions::debug-command-argument-count) 1) (system::mm (lisp::quote conditions::define-debug-command) 2) (system::mf (lisp::quote conditions::read-debug-command) 3) (system::mf (lisp::quote #2=#:g2325) 4) (system::sputprop (lisp::quote :eval) #0# (lisp::symbol-function (lisp::quote #2#))) (system::sputprop (lisp::quote :eval) #1# 1) (system::mf (lisp::quote #3=#:g2354) 5) (system::sputprop (lisp::quote :abort) #0# (lisp::symbol-function (lisp::quote #3#))) (system::sputprop (lisp::quote :abort) #1# 0) (system::mf (lisp::quote #4=#:g2379) 6) (system::sputprop (lisp::quote :continue) #0# (lisp::symbol-function (lisp::quote #4#))) (system::sputprop (lisp::quote :continue) #1# 0) (system::mf (lisp::quote #5=#:g2404) 7) (system::sputprop (lisp::quote :error) #0# (lisp::symbol-function (lisp::quote #5#))) (system::sputprop (lisp::quote :error) #1# 0) (system::mf (lisp::quote #6=#:g2429) 8) (system::sputprop (lisp::quote :help) #0# (lisp::symbol-function (lisp::quote #6#))) (system::sputprop (lisp::quote :help) #1# 0) (system::*make-special (lisp::quote conditions::*debug-command-prefix*)) (lisp::or (lisp::boundp (lisp::quote conditions::*debug-command-prefix*)) (lisp::setq conditions::*debug-command-prefix* ":")) (system::mf (lisp::quote conditions::show-restarts) 9) (system::*make-special (lisp::quote conditions::*debugger-hook*)) (lisp::or (lisp::boundp (lisp::quote conditions::*debugger-hook*)) (lisp::setq conditions::*debugger-hook* lisp::nil)) (system::*make-special (lisp::quote conditions::*debugger-function*)) (lisp::or (lisp::boundp (lisp::quote conditions::*debugger-function*)) (lisp::setq conditions::*debugger-function* (lisp::quote conditions::standard-debugger))) (system::mf (lisp::quote conditions::invoke-debugger) 10) (system::mf (lisp::quote conditions::standard-debugger) 11) (system::mf (lisp::quote conditions::execute-debugger-command) 12) (system::debug (lisp::quote #2#) (lisp::quote (conditions::form))) (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 (lisp::condition 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 #:g2599))))))
8  )  )

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

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