       
#(#! 
(lisp::in-package "LISP")#! 
(lisp::export (lisp::quote (lisp::+ lisp::++ lisp::+++ lisp::- lisp::* lisp::** lisp::*** lisp::/ lisp::// lisp::///)))#! 
(lisp::export (lisp::quote (lisp::break lisp::warn)))#! 
(lisp::export (lisp::quote lisp::*break-on-warnings*))#! 
(lisp::export (lisp::quote lisp::*break-enable*))#! 
(lisp::in-package (lisp::quote lisp::system))#! 
(lisp::export (lisp::quote system::*break-readtable*))#! 
(lisp::export (lisp::quote (system::loc system::*debug-print-level*)))#! 
(lisp::export (lisp::quote (system::vs system::ihs-vs system::ihs-fun system::frs-vs system::frs-bds system::frs-ihs system::bds-var system::bds-val system::super-go)))
#(lisp::+ lisp::++ lisp::+++ lisp::- lisp::* lisp::** lisp::*** lisp::/ lisp::// lisp::/// system::*lisp-initialized* system::*quit-tag* system::*multiply-stacks* "init.lsp" "init.lsp" lisp::*load-verbose* system::*command-args* system::*top-level-hook* system::*no-prompt* "~%~a>" lisp::*package* system::user "" lisp::*standard-input* system::*top-eof* lisp::*evalhook* lisp::*applyhook* lisp::*error-output* "-load" "-eval" #\Newline #\: "(" ")" system::*break-message* system::*quit-tags* system::*break-level* system::*ihs-base* system::*ihs-top* system::*current-ihs* system::*frs-base* system::*frs-top* system::*break-env* lisp::*break-enable* lisp::*readtable* system::*break-readtable* lisp::*read-suppress* system::*interrupt-enable* lisp::*debug-io* "~&~a~a>~{~*>~}" "" "dbl:" "" system::step-continue system::break-command :resume lisp::*print-level* lisp::*print-length* lisp::*print-case* :upcase lisp::*break-on-warnings* "~&Warning: " system::*indent-formatted-output* lisp::*print-pretty* system::*debug-print-level* "~&Correctable error: " "Signalled by ~:@(~S~).~%" "Signalled by an anonymous function.~%" "~&If continued: " "~?~&" "~&Error: " lisp::*link-array* "Fast links are on: do (si::use-fast-links nil) for debugging~%" "Error signalled by ~:@(~S~).~%" "Error signalled by an anonymous function.~%" "~&Break: " "~&Break.~%" "" "Type :r to resume execution, or :q to quit to top level." "Console interrupt." "Console interrupt -- cannot continue." lisp::keyword "~&~S is undefined break command.~%" "Broken at ~:@(~S~).~:[  Type :H for Help.~;~]" "bad env" "~a~#[none~;~S~;~S and ~S~
         ~:;~@{~#[~;and ~]~S~^, ~}~].~%" "Local variables: " "Local functions: " "Local blocks: " lisp::block "Local tags: " lisp::tag "~&VS[~d]: ~s" "~&BDS[~d]: ~s = ~s" :stream :escape :case :downcase "~&~:[  ~;@ ~]IHS[~d]: ~s ---> VS[~d]" lisp::lambda (:zombi) :zombi "~&    FRS[~d]: ~s ---> IHS[~d],VS[~d],BDS[~d]" :key :test lisp::tagbody :test-not (lisp::***) system::block/tagbody lisp::catch lisp::quote (lisp::unwind-protect lisp::***) system::system-internal-catcher "Broken at ~:@(~S~)." "~&Top level." system::*break-hidden-packages* lisp::lambda-closure "~s is invalid tagbody identification for ~s." "Search for ~a failed.~%" "Search for ~a failed.~%" ("
Break-loop Command Summary ([] indicates optional arg)
--------------------------

:bl [j]     show local variables and their values, or segment of vs if compiled
              in j stack frames starting at the current one.
:bt [n]     BACKTRACE [n steps]
:down [i]   DOWN i frames (one if no i)
:env        describe ENVIRONMENT of this stack frame (for interpreted).
:fr [n]     show frame n
:loc [i]    return i'th local of this frame if its function is compiled (si::loc i)
" ":r          RESUME (return from the current break loop).
:up [i]     UP i frames (one if no i)

Example: print a bactrace of the last 4 frames

>>:bt 4

Note:  (use-fast-links nil) makes all non system function calls
be recorded in the stack.   (use-fast-links t) is the default

Low level commands:
------------------
:p [i]           make current the i'th PREVIOUS frame (in list show by :b)
:n [i]           make current the i'th NEXT frame (in list show by :b)
:go [ihs-index]  make current the frame corresponding ihs-index
" ":m               print the last break message.
:c               show function of the current ihs frame.
:q [i]           quit to top level
:r               resume from this break loop.
:b               full backtrace of all functions and special forms.
:bs [name]       backward search for frame named 'name'
:fs  [name]      search for frame named 'name'
:vs [from] [to]  Show value stack between FROM and TO
:ihs [from] [to] Show Invocation History Stack
" "
:bds ['v1 'v2 ..]Show previous special bindings of v1, v2,.. or all if no v1

") "~%Here is a COMPLETE list of bindings.   Too
add a new one, add a 'si::break-command property:" "KEYWORD" "~%~(~a -- ~a~)" "not a string ~a" #\/ "~a/" system::*fixed-load-path* system::*load-path* system::*load-types* system::*path* "Do (setq si::*path* \"pathname\") for path to use then :r to continue" "Lookup failed in directories:~s for name ~s with extensions ~s" system::*allow-gzipped-file* lisp::macro system::*lib-directory* "GCL_LIBDIR" "-libdir" "lsp/" "gcl-tk/" system::*system-directory* "-dir" "-f" (lisp::nil) lisp::load system::process-some-args lisp::read lisp::eval lisp::prin1 system::break-current lisp::read-from-string system::string-concatenate lisp::make-string-input-stream system::ihs-top system::sch-frs-base system::frs-top system::simple-backtrace system::break-quit system::catch-fatal system::set-current system::set-back system::dbl-read system::break-call lisp::evalhook lisp::break system::break-level system::complete-prop system::set-env system::ihs-visible system::ihs-fname system::break-previous system::ihs-vs system::print-ihs system::vs system::break-vs system::frs-bds system::bds-var system::print-frs system::bds-val system::frs-ihs system::ihs-fun lisp::lambda-block system::lambda-block-expanded lisp::lambda-block-closure system::frs-kind system::frs-vs system::frs-class :catch system::frs-tag system::spicep lisp::caddr lisp::eq lisp::remove :protect system::compiled-function-name system::ihs-not-interpreted-env system::list-delq system::internal-super-go lisp::search lisp::char-equal system::break-go system::package-size system::coerce-slash-terminated system::fix-load-path system::file-search system::get-command-arg system::argc system::argv system::getenv system::set-dir system::do-f lisp::open system::aload (system::%init . #((system::*make-special (lisp::quote lisp::+)) (system::*make-special (lisp::quote lisp::++)) (system::*make-special (lisp::quote lisp::+++)) (system::*make-special (lisp::quote lisp::-)) (system::*make-special (lisp::quote lisp::*)) (system::*make-special (lisp::quote lisp::**)) (system::*make-special (lisp::quote lisp::***)) (system::*make-special (lisp::quote lisp::/)) (system::*make-special (lisp::quote lisp:://)) (system::*make-special (lisp::quote lisp::///)) (system::*make-special (lisp::quote system::*fixed-load-path*)) (lisp::or (lisp::boundp (lisp::quote system::*fixed-load-path*)) (lisp::setq system::*fixed-load-path* lisp::nil)) (system::*make-special (lisp::quote system::*load-path*)) (lisp::or (lisp::boundp (lisp::quote system::*load-path*)) (lisp::setq system::*load-path* lisp::nil)) (system::*make-special (lisp::quote system::*load-types*)) (lisp::or (lisp::boundp (lisp::quote system::*load-types*)) (lisp::setq system::*load-types* (lisp::quote (".o" ".lsp" ".lisp")))) (system::*make-special (lisp::quote system::*lisp-initialized*)) (lisp::or (lisp::boundp (lisp::quote system::*lisp-initialized*)) (lisp::setq system::*lisp-initialized* lisp::nil)) (system::*make-special (lisp::quote system::*quit-tag*)) (lisp::or (lisp::boundp (lisp::quote system::*quit-tag*)) (lisp::setq system::*quit-tag* (lisp::cons lisp::nil lisp::nil))) (system::*make-special (lisp::quote system::*quit-tags*)) (lisp::or (lisp::boundp (lisp::quote system::*quit-tags*)) (lisp::setq system::*quit-tags* lisp::nil)) (system::*make-special (lisp::quote system::*break-level*)) (lisp::or (lisp::boundp (lisp::quote system::*break-level*)) (lisp::setq system::*break-level* (lisp::quote lisp::nil))) (system::*make-special (lisp::quote system::*break-env*)) (lisp::or (lisp::boundp (lisp::quote system::*break-env*)) (lisp::setq system::*break-env* lisp::nil)) (system::*make-special (lisp::quote system::*ihs-base*)) (lisp::or (lisp::boundp (lisp::quote system::*ihs-base*)) (lisp::setq system::*ihs-base* 1)) (system::*make-special (lisp::quote system::*ihs-top*)) (lisp::or (lisp::boundp (lisp::quote system::*ihs-top*)) (lisp::setq system::*ihs-top* 1)) (system::*make-special (lisp::quote system::*current-ihs*)) (lisp::or (lisp::boundp (lisp::quote system::*current-ihs*)) (lisp::setq system::*current-ihs* 1)) (system::*make-special (lisp::quote system::*frs-base*)) (lisp::or (lisp::boundp (lisp::quote system::*frs-base*)) (lisp::setq system::*frs-base* 0)) (system::*make-special (lisp::quote system::*frs-top*)) (lisp::or (lisp::boundp (lisp::quote system::*frs-top*)) (lisp::setq system::*frs-top* 0)) (system::*make-special (lisp::quote lisp::*break-enable*)) (lisp::or (lisp::boundp (lisp::quote lisp::*break-enable*)) (lisp::setq lisp::*break-enable* lisp::t)) (system::*make-special (lisp::quote system::*break-message*)) (lisp::or (lisp::boundp (lisp::quote system::*break-message*)) (lisp::setq system::*break-message* "")) (system::*make-special (lisp::quote lisp::*break-on-warnings*)) (lisp::or (lisp::boundp (lisp::quote lisp::*break-on-warnings*)) (lisp::setq lisp::*break-on-warnings* lisp::nil)) (system::*make-special (lisp::quote system::*break-readtable*)) (lisp::or (lisp::boundp (lisp::quote system::*break-readtable*)) (lisp::setq system::*break-readtable* lisp::nil)) (system::*make-special (lisp::quote system::*top-level-hook*)) (lisp::or (lisp::boundp (lisp::quote system::*top-level-hook*)) (lisp::setq system::*top-level-hook* lisp::nil)) (system::*make-special (lisp::quote system::*top-eof*)) (lisp::or (lisp::boundp (lisp::quote system::*top-eof*)) (lisp::setq system::*top-eof* (lisp::cons lisp::nil lisp::nil))) (system::*make-special (lisp::quote system::*no-prompt*)) (lisp::or (lisp::boundp (lisp::quote system::*no-prompt*)) (lisp::setq system::*no-prompt* lisp::nil)) (system::mfsfun (lisp::quote system::top-level) 0 0) (system::mf (lisp::quote system::process-some-args) 1) (system::mf (lisp::quote system::dbl-read) 2) (system::mf (lisp::quote system::break-level) 3) (system::*make-special (lisp::quote system::*debug-print-level*)) (lisp::or (lisp::boundp (lisp::quote system::*debug-print-level*)) (lisp::setq system::*debug-print-level* 3)) (system::mfvfun (lisp::quote lisp::warn) 4 16385) (system::mfvfun (lisp::quote system::universal-error-handler) 5 16389) (system::mfvfun (lisp::quote lisp::break) 6 16384) (system::mfsfun (lisp::quote system::terminal-interrupt) 7 1) (system::mfvfun (lisp::quote system::break-call) 8 770) (system::mf (lisp::quote system::break-quit) 9) (system::mf (lisp::quote system::break-previous) 10) (system::mfsfun (lisp::quote system::set-current) 11 0) (system::mf (lisp::quote system::break-next) 12) (system::mf (lisp::quote system::break-go) 13) (system::mf (lisp::quote system::break-message) 14) (system::mf (lisp::quote system::describe-environment) 15) (system::mf (lisp::quote system::break-vs) 16) (system::mf (lisp::quote system::break-local) 17) (system::mf (lisp::quote system::break-bds) 18) (system::mf (lisp::quote system::simple-backtrace) 19) (system::mf (lisp::quote system::ihs-backtrace) 20) (system::mfsfun (lisp::quote system::print-ihs) 21 1) (system::mfsfun (lisp::quote system::print-frs) 22 1) (system::mfsfun (lisp::quote system::frs-kind) 23 1) (system::mf (lisp::quote system::break-current) 24) (system::*make-special (lisp::quote system::*break-hidden-packages*)) (lisp::or (lisp::boundp (lisp::quote system::*break-hidden-packages*)) (lisp::setq system::*break-hidden-packages* lisp::nil)) (system::mfsfun (lisp::quote system::ihs-visible) 25 1) (system::mf (lisp::quote system::ihs-fname) 26) (system::mf (lisp::quote system::ihs-not-interpreted-env) 27) (system::mfsfun (lisp::quote system::set-env) 28 0) (system::mfsfun (lisp::quote system::list-delq) 29 2) (system::mfsfun (lisp::quote system::super-go) 30 2) (system::mfsfun (lisp::quote system::break-backward-search-stack) 31 1) (system::mfsfun (lisp::quote system::break-forward-search-stack) 32 1) (system::putprop :b (lisp::quote system::simple-backtrace) (lisp::quote system::break-command)) (system::putprop :r (lisp::quote (lisp::lambda lisp::nil :resume)) (lisp::quote system::break-command)) (system::putprop :resume (lisp::get :r (lisp::quote system::break-command)) (lisp::quote system::break-command)) (system::putprop :bds (lisp::quote system::break-bds) (lisp::quote system::break-command)) (system::putprop :blocks (lisp::quote system::break-blocks) (lisp::quote system::break-command)) (system::putprop :bs (lisp::quote system::break-backward-search-stack) (lisp::quote system::break-command)) (system::putprop :c (lisp::quote system::break-current) (lisp::quote system::break-command)) (system::putprop :fs (lisp::quote system::break-forward-search-stack) (lisp::quote system::break-command)) (system::putprop :functions (lisp::quote system::break-functions) (lisp::quote system::break-command)) (system::putprop :go (lisp::quote system::break-go) (lisp::quote system::break-command)) (system::putprop :h (lisp::quote system::break-help) (lisp::quote system::break-command)) (system::putprop :help (lisp::quote system::break-help) (lisp::quote system::break-command)) (system::putprop :ihs (lisp::quote system::ihs-backtrace) (lisp::quote system::break-command)) (system::putprop :env (lisp::quote (lisp::lambda lisp::nil (system::describe-environment system::*break-env*))) (lisp::quote system::break-command)) (system::putprop :m (lisp::quote system::break-message) (lisp::quote system::break-command)) (system::putprop :n (lisp::quote system::break-next) (lisp::quote system::break-command)) (system::putprop :p (lisp::quote system::break-previous) (lisp::quote system::break-command)) (system::putprop :q (lisp::quote system::break-quit) (lisp::quote system::break-command)) (system::putprop :s (lisp::quote system::break-backward-search-stack) (lisp::quote system::break-command)) (system::putprop :vs (lisp::quote system::break-vs) (lisp::quote system::break-command)) (system::mfsfun (lisp::quote system::break-help) 33 0) (system::mf (lisp::quote system::coerce-slash-terminated) 34) (system::mf (lisp::quote system::fix-load-path) 35) (system::putprop (lisp::quote system::file-search) "Search for NAMME in DIRS with EXTENSIONS.
First directory is checked for first name and all extensions etc." (lisp::quote system::function-documentation)) (system::mf (lisp::quote system::file-search) 36) (system::mf (lisp::quote system::aload) 37) (system::mf (lisp::quote system::autoload) 38) (system::mf (lisp::quote system::autoload-macro) 39) (system::*make-special (lisp::quote system::*command-args*)) (lisp::or (lisp::boundp (lisp::quote system::*command-args*)) (lisp::setq system::*command-args* lisp::nil)) (system::mf (lisp::quote system::get-command-arg) 40) (system::mf (lisp::quote system::set-dir) 41) (system::mf (lisp::quote system::set-up-top-level) 42) (system::mf (lisp::quote system::do-f) 43))))
)
