alpaka.lisp

(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)