From 56598663fa33a5288661436666b184d3acd36edf Mon Sep 17 00:00:00 2001
From: Kei Okada <kei.okada@gmail.com>
Date: Fri, 10 Jan 2025 05:03:19 +0000
Subject: [PATCH] ros::find-load-msg-path, skip 'euslisp' and 'jskeus' package
 for system installed euslisp

---
 roseus/euslisp/roseus.l | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/roseus/euslisp/roseus.l b/roseus/euslisp/roseus.l
index 11e4a6f2f..1c8834007 100644
--- a/roseus/euslisp/roseus.l
+++ b/roseus/euslisp/roseus.l
@@ -387,6 +387,10 @@ always the rank of list is 2"
 ;;
 ;; first look under "~A/roseus/${ROS_DISTRO}/${PKG}" and if not check CMAKE_PREFIX_PATH/share/roseus/ros/${PKG}
 (defun ros::find-load-msg-path (pkg)
+  (when (and (string= *eusdir* "/usr/share/euslisp/") (member pkg '("euslisp" "jskeus") :test #'string=))
+    (warning-message 3 "on system installed euslisp, (ros::find-load-msg-path \"~A\") is skipped~%"
+		     *eusdir* pkg)
+    (return-from  ros::find-load-msg-path :no-msg-package))
   (let ((dirs (list ))
         (ppath (unix::getenv "CMAKE_PREFIX_PATH"))
         (s 0) i)