In CLISP, "truename" is sensitive to the difference between "dir" and
"dir/".

So we need to "pad-directory-name" first.  This already happens in our
codebase.

- Qian

=====

diff --git a/src/interp/util.lisp b/src/interp/util.lisp
index 4a60b338..866daa7d 100644
--- a/src/interp/util.lisp
+++ b/src/interp/util.lisp
@@ -115,7 +115,7 @@ from scratch.
                     bin-parent-dir))
               (error "Environment variable FRICAS is not set!")))
   (if (|fricas_probe_file| spadroot)
-      (reroot (trim-directory-name (namestring (truename spadroot))))
+ (reroot (trim-directory-name (namestring (truename (pad-directory-name spadroot)))))
       (error "Environment variable FRICAS is not valid!")))

 ;;; Gnu Common Lisp (GCL) (at least 2.6.[78]) requires some changes

--
You received this message because you are subscribed to the Google Groups "FriCAS - 
computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to fricas-devel+unsubscr...@googlegroups.com.
To view this discussion on the web visit 
https://groups.google.com/d/msgid/fricas-devel/7205ce05-3f85-4176-af85-e97cc148ce5c%40gmail.com.

Reply via email to