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

Diff of /gcl/clcs/clcs_top_patches.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 3  Line 3 
3  (lisp::in-package "CONDITIONS")#!  (lisp::in-package "CONDITIONS")#!
4  (lisp::import (lisp::quote (conditions::with-simple-restart conditions::abort conditions::continue conditions::compute-restarts conditions::*debug-level* conditions::*debug-restarts* conditions::*number-of-debug-restarts* conditions::*debug-abort* conditions::*debug-continue* conditions::*debug-condition* conditions::*debug-eval* conditions::find-restart conditions::invoke-restart conditions::invoke-restart-interactively conditions::restart-name conditions::ignore-errors conditions::show-restarts conditions::conditionp)) "SYSTEM")#!  (lisp::import (lisp::quote (conditions::with-simple-restart conditions::abort conditions::continue conditions::compute-restarts conditions::*debug-level* conditions::*debug-restarts* conditions::*number-of-debug-restarts* conditions::*debug-abort* conditions::*debug-continue* conditions::*debug-condition* conditions::*debug-eval* conditions::find-restart conditions::invoke-restart conditions::invoke-restart-interactively conditions::restart-name conditions::ignore-errors conditions::show-restarts conditions::conditionp)) "SYSTEM")#!
5  (lisp::in-package "SYSTEM")  (lisp::in-package "SYSTEM")
6  #(system::*abort-restarts* lisp::let* ((conditions::*debug-level* (lisp::1+ conditions::*debug-level*)) (system::debug-level conditions::*debug-level*) (conditions::*debug-restarts* (conditions::compute-restarts)) (conditions::*number-of-debug-restarts* (lisp::length conditions::*debug-restarts*)) (conditions::*debug-abort* (conditions::find-restart (lisp::quote conditions::abort))) (conditions::*debug-continue* (lisp::or (lisp::let ((system::c (conditions::find-restart (lisp::quote conditions::continue)))) (lisp::if (lisp::or (lisp::not conditions::*debug-continue*) (lisp::not (lisp::eq conditions::*debug-continue* system::c))) system::c lisp::nil)) (lisp::let ((system::c (lisp::if conditions::*debug-restarts* (lisp::first conditions::*debug-restarts*) lisp::nil))) (lisp::if (lisp::not (lisp::eq system::c conditions::*debug-abort*)) system::c lisp::nil)))) (conditions::*debug-condition* (lisp::if (conditions::conditionp system::at) system::at conditions::*debug-condition*)) (system::*abort-restarts* (lisp::let ((system::abort-list lisp::nil)) (lisp::dolist (system::restart conditions::*debug-restarts*) (lisp::when (lisp::eq (lisp::quote conditions::abort) (conditions::restart-name system::restart)) (lisp::push system::restart system::abort-list))) (lisp::nreverse system::abort-list)))) lisp::- conditions::*number-of-debug-restarts* conditions::*debug-restarts* "~&No such restart." system::*break-message* system::*quit-tags* system::*break-level* system::*quit-tag* system::*ihs-base* system::*ihs-top* system::*current-ihs* system::*frs-base* system::*frs-top* system::*break-env* lisp::*readtable* system::*break-readtable* lisp::*read-suppress* lisp::+ lisp::++ lisp::+++ lisp::* lisp::** lisp::*** lisp::/ lisp::// lisp::/// conditions::*debug-level* conditions::*debug-abort* conditions::abort conditions::*debug-continue* conditions::continue conditions::*debug-condition* conditions::restart conditions::*restart-clusters* :name :function :report-function "Return to debug level ~D." lisp::*debug-io* "~&~A~2%" lisp::*link-array* "Fast links are on: do (use-fast-links nil) for debugging~%" system::*no-prompt* #:g2333 system::*interrupt-enable* "~&~a~a>~{~*>~}" "" "dbl:" lisp::*package* system::user "" "Return to debug level ~D." system::step-continue system::*top-eof* #:g2386 "Continues execution." "Console interrupt." "Console interrupt -- cannot continue." conditions::*debugger-function* system::break-level conditions::*debug-command-prefix* "" :r system::break-resume system::break-command :s conditions::show-restarts "  #(system::*abort-restarts* lisp::let* ((conditions::*debug-level* (lisp::1+ conditions::*debug-level*)) (system::debug-level conditions::*debug-level*) (conditions::*debug-restarts* (conditions::compute-restarts)) (conditions::*number-of-debug-restarts* (lisp::length conditions::*debug-restarts*)) (conditions::*debug-abort* (conditions::find-restart (lisp::quote conditions::abort))) (conditions::*debug-continue* (lisp::or (lisp::let ((system::c (conditions::find-restart (lisp::quote conditions::continue)))) (lisp::if (lisp::or (lisp::not conditions::*debug-continue*) (lisp::not (lisp::eq conditions::*debug-continue* system::c))) system::c lisp::nil)) (lisp::let ((system::c (lisp::if conditions::*debug-restarts* (lisp::first conditions::*debug-restarts*) lisp::nil))) (lisp::if (lisp::not (lisp::eq system::c conditions::*debug-abort*)) system::c lisp::nil)))) (conditions::*debug-condition* (lisp::if (conditions::conditionp system::at) system::at conditions::*debug-condition*)) (system::*abort-restarts* (lisp::let ((system::abort-list lisp::nil)) (lisp::dolist (system::restart conditions::*debug-restarts*) (lisp::when (lisp::eq (lisp::quote conditions::abort) (conditions::restart-name system::restart)) (lisp::push system::restart system::abort-list))) (lisp::nreverse system::abort-list)))) lisp::- conditions::*number-of-debug-restarts* conditions::*debug-restarts* "~&No such restart." system::*break-message* system::*quit-tags* system::*break-level* system::*quit-tag* system::*ihs-base* system::*ihs-top* system::*current-ihs* system::*frs-base* system::*frs-top* system::*break-env* lisp::*readtable* system::*break-readtable* lisp::*read-suppress* lisp::+ lisp::++ lisp::+++ lisp::* lisp::** lisp::*** lisp::/ lisp::// lisp::/// conditions::*debug-level* conditions::*debug-abort* conditions::abort conditions::*debug-continue* conditions::continue conditions::*debug-condition* conditions::restart conditions::*restart-clusters* :name :function :report-function "Return to debug level ~D." lisp::*debug-io* "~&~A~2%" lisp::*link-array* "Fast links are on: do (use-fast-links nil) for debugging~%" system::*no-prompt* #:g2338 system::*interrupt-enable* "~&~a~a>~{~*>~}" "" "dbl:" lisp::*package* system::user "" "Return to debug level ~D." system::step-continue system::*top-eof* #:g2391 "Continues execution." "Console interrupt." "Console interrupt -- cannot continue." conditions::*debugger-function* system::break-level conditions::*debug-command-prefix* "" :r system::break-resume system::break-command :s conditions::show-restarts "
7  Break-loop Command Summary ([] indicates optional arg)  Break-loop Command Summary ([] indicates optional arg)
8  --------------------------  --------------------------
9    
# Line 42  Low level commands: Line 42  Low level commands:
42  :ihs [from] [to] Show Invocation History Stack  :ihs [from] [to] Show Invocation History Stack
43  :bds ['v1 'v2 ..]Show previous special bindings of v1, v2,.. or all if no v1  :bds ['v1 'v2 ..]Show previous special bindings of v1, v2,.. or all if no v1
44    
45  " system::*make-special conditions::invoke-restart-interactively conditions::conditionp system::ihs-top system::sch-frs-base system::frs-top conditions::compute-restarts conditions::find-restart system::set-back conditions::make-restart system::set-current system::catch-fatal system::dbl-read system::break-call system::clcs-break-level-invoke-restart lisp::evalhook lisp::prin1 system::break-current lisp::cerror lisp::error conditions::invoke-restart (system::%init . #((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::putprop (lisp::quote system::with-clcs-break-level-bindings) (lisp::quote 0) (lisp::quote system::pretty-print-format)) (system::mm (lisp::quote system::with-clcs-break-level-bindings) 3) (system::mf (lisp::quote system::clcs-break-level-invoke-restart) 4) (system::mfvfun (lisp::quote system::clcs-break-level) 5 513) (system::mfsfun (lisp::quote system::clcs-terminal-interrupt) 6 1) (system::mfvfun (lisp::quote system::clcs-break-quit) 7 256) (system::mfsfun (lisp::quote #3=#:|progn 'compile2513|) 8 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2525|) 9 0) (#4#) (system::mf (lisp::quote system::break-resume) 10) (system::mfsfun (lisp::quote #5=#:|progn 'compile2545|) 11 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2557|) 12 0) (#6#) (system::mf (lisp::quote system::break-help) 13) (system::debug (lisp::quote system::clcs-break-level-invoke-restart) (lisp::quote (lisp::-))) (system::debug (lisp::quote system::clcs-break-level) (lisp::quote (system::at system::env lisp::nil system::*break-level* system::*ihs-base* system::*ihs-top* lisp::nil lisp::nil lisp::nil system::*break-env* lisp::nil lisp::nil lisp::+ lisp::++ lisp::nil lisp::- lisp::* lisp::** lisp::nil lisp::/ lisp::// lisp::nil conditions::*debug-level* system::debug-level conditions::*debug-restarts* lisp::nil conditions::*debug-abort* lisp::nil lisp::nil lisp::nil system::restart lisp::nil lisp::nil lisp::values system::val))) (system::debug (lisp::quote system::clcs-break-quit) (lisp::quote (system::level))))))  " system::*make-special conditions::invoke-restart-interactively conditions::conditionp system::ihs-top system::sch-frs-base system::frs-top conditions::compute-restarts conditions::find-restart system::set-back conditions::make-restart system::set-current system::catch-fatal system::dbl-read system::break-call system::clcs-break-level-invoke-restart lisp::evalhook lisp::prin1 system::break-current lisp::cerror lisp::error conditions::invoke-restart (system::%init . #((system::mfsfun (lisp::quote #0=#:|progn 'compile2199|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile2211|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2224|) 2 0) (#2#) (system::putprop (lisp::quote system::with-clcs-break-level-bindings) (lisp::quote 0) (lisp::quote system::pretty-print-format)) (system::mm (lisp::quote system::with-clcs-break-level-bindings) 3) (system::mf (lisp::quote system::clcs-break-level-invoke-restart) 4) (system::mfvfun (lisp::quote system::clcs-break-level) 5 513) (system::mfsfun (lisp::quote system::clcs-terminal-interrupt) 6 1) (system::mfvfun (lisp::quote system::clcs-break-quit) 7 256) (system::mfsfun (lisp::quote #3=#:|progn 'compile2518|) 8 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2530|) 9 0) (#4#) (system::mf (lisp::quote system::break-resume) 10) (system::mfsfun (lisp::quote #5=#:|progn 'compile2550|) 11 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2562|) 12 0) (#6#) (system::mf (lisp::quote system::break-help) 13) (system::debug (lisp::quote system::clcs-break-level-invoke-restart) (lisp::quote (lisp::-))) (system::debug (lisp::quote system::clcs-break-level) (lisp::quote (system::at system::env lisp::nil system::*break-level* system::*ihs-base* system::*ihs-top* lisp::nil lisp::nil lisp::nil system::*break-env* lisp::nil lisp::nil lisp::+ lisp::++ lisp::nil lisp::- lisp::* lisp::** lisp::nil lisp::/ lisp::// lisp::nil conditions::*debug-level* system::debug-level conditions::*debug-restarts* lisp::nil conditions::*debug-abort* lisp::nil lisp::nil lisp::nil system::restart lisp::nil lisp::nil lisp::values system::val))) (system::debug (lisp::quote system::clcs-break-quit) (lisp::quote (system::level))))))
46  )  )

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