Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defpackage :alpaka-debugger(:use :cl))
- (in-package :alpaka-debugger)
- (defun alpaka-debugger(condition function)
- (declare(ignore function))
- (format t
- " 「\ /`ヽ
- | \'゙゙゙\"\"\"\"\"\"\"゙゙; / l
- レ'´ ィ` ̄ ̄ ̄ `ヽ`く l
- /〃 〃 \\ /
- / 〃 ヽ`V、
- / / i iヽ
- / / `ヽ } }|
- { {! K´ ̄` に} !
- ⅥV | ニ V}ノ´¨`. |
- | |\ \ \ \\| 行tテ,! i l
- | | ヽ|\|\|\| り.ソノ ! ! !
- | | | .′ l /
- | | ト、 ⊂ニフ ノL_ノ〃
- Ⅵ〈⌒';'゙´゙゙゙゙゙゙゙゙゙゙゙゙゙゙゙゙゙゙゙゙゙゙゙゙゙; ⌒ヽ
- 〉 : ; 〉
- 〈 ; ;ィ'´ミ
- く/⌒);、、,,,,,,,,,,,,...,,,,,,.、、. :゙⌒ヽミ
- l l く:::::::ハ::::::::>`7´⌒「
- l l V/ ヽV l |
- ふわああぁ!いらっしゃぁい!よぉこそぉ↑デバッガへ~!
- どうぞどうぞ!ゆっぐりしてってぇ!いやま゛っ↓てたよぉ!
- やっとリスパーが来てくれたゆぉ!嬉しいなあ!
- ねえなんにぃするぅ?色々あるよぉ、
- これね、~Sって言うんだってぇハ↓カセに教えてもらったンの!"
- (type-of condition))
- (invoke-debugger condition))
- (setq *debugger-hook* #'alpaka-debugger)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement