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* #:g2328 system::*interrupt-enable* "~&~a~a>~{~*>~}" "" "dbl:" lisp::*package* system::user "" "Return to debug level ~D." system::step-continue system::*top-eof* #:g2381 "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* #:g2331 system::*interrupt-enable* "~&~a~a>~{~*>~}" "" "dbl:" lisp::*package* system::user "" "Return to debug level ~D." system::step-continue system::*top-eof* #:g2384 "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 |
|
|
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 'compile2189|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile2201|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2214|) 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 'compile2508|) 8 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2520|) 9 0) (#4#) (system::mf (lisp::quote system::break-resume) 10) (system::mfsfun (lisp::quote #5=#:|progn 'compile2540|) 11 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2552|) 12 0) (#6#) (system::mf (lisp::quote system::break-help) 13)))) |
" 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 'compile2192|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile2204|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2217|) 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 'compile2511|) 8 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2523|) 9 0) (#4#) (system::mf (lisp::quote system::break-resume) 10) (system::mfsfun (lisp::quote #5=#:|progn 'compile2543|) 11 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2555|) 12 0) (#6#) (system::mf (lisp::quote system::break-help) 13)))) |
46 |
) |
) |