Commit fa682086 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Moved initialize-debugging-task away to test sources. Added resetting of *readtable*.

parent dd15beb8
......@@ -34,7 +34,8 @@
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;****************************************************************************
(eval-when (:compile-toplevel :load-toplevel :execute)
(setf *readtable* (copy-readtable nil)))
(in-package "COM.INFORMATIMAGO.LSE")
......@@ -1831,22 +1832,6 @@ Voir les commandes TABLE DES FICHIERS, SUPPRIMER."
(terminal-keysym-label terminal :attention)
(terminal-keysym-label terminal :return))))
#+debugging
(defun initialize-debugging-task ()
(setf *command-group* awake
*task* (make-instance 'task
:state :active
:case-insensitive t
:upcase-output nil
:dectech nil
:unicode nil
:terminal (make-instance 'standard-terminal
:input-stream (stream-input-stream *terminal-io*)
:output-stream (stream-output-stream *terminal-io*)))))
......@@ -1913,6 +1898,7 @@ Voir les commandes TABLE DES FICHIERS, SUPPRIMER."
(task-state-label (task-state task)))))
((task-pas-a-pas-first *task*)
;; pas à pas:
(continuer))
#|else empty line, just ignore it.|#)))
......@@ -1969,7 +1955,8 @@ Voir les commandes TABLE DES FICHIERS, SUPPRIMER."
(handler-case
#-debugging (funcall thunk)
#+debugging (if *debug-repl*
(handler-bind ((lse-error (function report-and-signal-error))
(handler-bind
((lse-error (function report-and-signal-error))
(scanner-error (function report-and-signal-error))
(parser-error (function report-and-signal-error))
(file-error (function report-and-signal-error))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment