   ;; Since this takes a while, tell the user that it has started.
   (message "Finding callers of %s..." fspec)
   (lep::list-fspecs-common fspec
-			   'opx2-lisp::who-calls
+			   (if (fi:eval-in-lisp "(if (fboundp 'opx2-lisp::who-calls) t nil)")			       
+			       'opx2-lisp::who-calls
+			     'lep::who-calls)
 			   "Cannot find the callers: %s"
 			   "caller"))
 

  ;;  (interactive (fi::get-default-symbol "List methods of" nil nil t))
  (interactive (fi::get-default-symbol "List methods of" nil nil))
  (message "Finding methods of %s..." fspec)
  (lep::list-fspecs-common fspec
			   'opx2-lisp::list-methods
			   "Cannot find the callers: %s"
			   "caller"))

;;;======================== tab list display ===============================
(defun display-list-in-current-buffer (list header-list sort-list )

;;;; (when (fboundp :require-patch) (:require-patch ""))
;;;; HISTORY :
;;;; $Log$
;;;; Revision 3.10  2015/09/23 08:22:50  troche
;;;; * checks that custom functions exists
;;;;
;;;; Revision 3.9  2015/09/22 13:21:19  troche
;;;; * amelioration of try-to-find-in-file
;;;;
