(defun matchp (object form-number)
(let ((ds (sb-introspect:find-definition-source object)))
(and (pathnamep (sb-introspect:definition-source-pathname ds))
(defun matchp (object form-number)
(let ((ds (sb-introspect:find-definition-source object)))
(and (pathnamep (sb-introspect:definition-source-pathname ds))