(abort)))

(defundebugger-type ()

(cond#+(or clasp sbcl)

(#+clasp (core:debugger-disabled-p)

#+sbcl (eqsb-ext:*invoke-debugger-hook*'sb-debug::debugger-disabled-hook)

(cond#+clasp

((core:debugger-disabled-p):none)

#+sbcl

((eqsb-ext:*invoke-debugger-hook*'sb-debug::debugger-disabled-hook)

:none)

#+(or clasp sbcl)

(#+claspext:*invoke-debugger-hook*

#+sbclsb-ext:*invoke-debugger-hook*

:external)

(t

:interal)))

(defunbuiltin-debugger-p ()

(and*builtin-debugger*

#+clasp (not (core:debugger-disabled-p))

#+sbcl (not (eqsb-ext:*invoke-debugger-hook*'sb-debug::debugger-disabled-hook))))

(defunexternal-debugger-p ()

(and#+sbclsb-ext:*invoke-debugger-hook*

#+cclccl:*break-hook*

#+eclext:*invoke-debugger-hook*

#+claspext:*invoke-debugger-hook*

#+abclsys::*invoke-debugger-hook*

#+clispsys::*break-driver*

#+allegroexcl::*break-hook*

#+lispworksdbg::*debugger-wrapper-list*

#+mezzanomezzano.debug:*global-debugger*

#-(or sbcl ccl ecl clasp abcl clisp allegro lispworks mezzano)

t))

#+abcl

(sys::*invoke-debugger-hook*:external)

#+allegro

(excl::*break-hook*:external)

#+ccl

(ccl:*break-hook*:external)

#+clisp

(sys::*break-driver*:external)

#+clasp

(ext:*invoke-debugger-hook*:external)

#+ecl

(ext:*invoke-debugger-hook*:external)

#+lispworks

(dbg::*debugger-wrapper-list*:external)

#+mezzano

(mezzano.debug:*global-debugger*:external)

#+sbcl

(sb-ext:*invoke-debugger-hook*:external)

(t:internal)))

(defmacrowith-debugger ((&key control internal)&body body)

(let ((debugger-hook (if control