spacepaste

Paste details

reply | raw

  1.  
  2. (agnostic-lizard-debugger-prototype:make-debugged-thread
  3. 'test-thread-debugger
  4. (agnostic-lizard-debugger-hooks:with-debugger-hook-calls
  5. (lambda ()
  6. (loop for x from 1 to 3 do (format t "~s~%" (* x x))))))
  8. (agnostic-lizard-debugger-prototype:send-debugged-thread-command
  9. 'test-thread-debugger t)
  10. (agnostic-lizard-debugger-prototype:send-debugged-thread-command
  11. 'test-thread-debugger t)
  12. (agnostic-lizard-debugger-prototype:send-debugged-thread-command
  13. 'test-thread-debugger t)
  15. (setf (agnostic-lizard-debugger-hooks:debugger-hooks-filter
  16. (gethash 'test-thread-debugger
  17. agnostic-lizard-debugger-hooks:*local-debugger-hooks*))
  18. (lambda (position marker function-marker)
  19. (declare (ignorable marker function-marker))
  20. (equal position :after-function)))
  22. (agnostic-lizard-debugger-prototype:send-debugged-thread-command
  23. 'test-thread-debugger t)
  24.  
Powered by spacepaste. Paste removal.