Comment detail

呼んだのは誰? (Nested Flatten)
処理系依存だな。
1
2
3
4
5
(defun foo () (caadr (caddr (sb-debug:backtrace-as-list))))
(defun bar () (foo))
(defun baz () (foo))
(bar)                                   ; => BAR
(baz)                                   ; => BAZ

Index

Feed

Other

Link

Pathtraq

loading...