(agnostic-lizard-debugger-prototype:make-debugged-thread
  'test-thread-debugger
  (agnostic-lizard-debugger-hooks:with-debugger-hook-calls
    (lambda ()
      (loop for x from 1 to 3 do (format t "~s~%" (* x x))))))

(agnostic-lizard-debugger-prototype:send-debugged-thread-command
  'test-thread-debugger t)
(agnostic-lizard-debugger-prototype:send-debugged-thread-command
  'test-thread-debugger t)
(agnostic-lizard-debugger-prototype:send-debugged-thread-command
  'test-thread-debugger t)

(setf (agnostic-lizard-debugger-hooks:debugger-hooks-filter
        (gethash 'test-thread-debugger
                 agnostic-lizard-debugger-hooks:*local-debugger-hooks*))
      (lambda (position marker function-marker)
        (declare (ignorable marker function-marker))
        (equal position :after-function)))

(agnostic-lizard-debugger-prototype:send-debugged-thread-command
  'test-thread-debugger t)