(let ((source (first (sb!c::compiled-debug-info-source info))))
(cond ((and (eq (sb!c::debug-source-from source) :lisp)
(eq (sb!c::debug-source-info source) fun))
(let ((source (first (sb!c::compiled-debug-info-source info))))
(cond ((and (eq (sb!c::debug-source-from source) :lisp)
(eq (sb!c::debug-source-info source) fun))