Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commit abf036c

Browse files
committed
Add stop_on_error support
1 parent 22559b4 commit abf036c

File tree

2 files changed

+7
-6
lines changed

2 files changed

+7
-6
lines changed

‎src/kernel.lisp

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
(in-package #:jupyter)
22

3-
3+
(defvar*enable-debugger*nil)
44
(defvar *payload* nil)
55
(defvar *markdown-output* nil)
66
(defvar *html-output* nil)
@@ -681,10 +681,9 @@
681681
(abort)))
682682

683683
(defun debugger-type ()
684-
(cond #+clasp
685-
((core:debugger-disabled-p) :none)
686-
#+sbcl
687-
((eq sb-ext:*invoke-debugger-hook* 'sb-debug::debugger-disabled-hook)
684+
(cond ((or (not *enable-debugger*)
685+
#+clasp (core:debugger-disabled-p)
686+
#+sbcl (eq sb-ext:*invoke-debugger-hook* 'sb-debug::debugger-disabled-hook))
688687
:none)
689688
#+abcl
690689
(sys::*invoke-debugger-hook* :external)
@@ -1492,7 +1491,8 @@
14921491
(evalue "Execution interrupted")
14931492
traceback
14941493
(*payload* (make-array 16 :adjustable t :fill-pointer 0))
1495-
(*page-output* (make-string-output-stream)))
1494+
(*page-output* (make-string-output-stream))
1495+
(*enable-debugger* (gethash "stop_on_error" (message-content *message*))))
14961496
(incf execution-count)
14971497
(add-cell history execution-count code)
14981498
(unwind-protect

‎src/packages.lisp

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -42,6 +42,7 @@
4242
;; kernel
4343
#:*debug-environment*
4444
#:*debug-frame*
45+
#:*enable-debugger*
4546
#:*html-output*
4647
#:*kernel*
4748
#:*markdown-output*

0 commit comments

Comments
(0)

AltStyle によって変換されたページ (->オリジナル) /