From 6c010f97d08b647927a626266723ace05185996a Mon Sep 17 00:00:00 2001 From: "SANO,Masatoshi" Date: Sat, 11 Apr 2026 00:57:47 +0900 Subject: [PATCH] fix ros script installation directory on windows --- lisp/init.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/init.lisp b/lisp/init.lisp index 47e814c..7ac537c 100644 --- a/lisp/init.lisp +++ b/lisp/init.lisp @@ -175,8 +175,8 @@ have the latest asdf, and this file has a workaround for this. (cond (is-quicklisp-already-available - (unless (equal (opt "quicklisp") - (namestring (symbol-value (read-from-string "ql:*quicklisp-home*")))) + (unless (equal (ignore-errors (truename (pathname (opt "quicklisp")))) + (ignore-errors (truename (symbol-value (read-from-string "ql:*quicklisp-home*"))))) (setf *local-project-directories* (copy-list (symbol-value (read-from-string "ql:*local-project-directories*")))))