Canonicalize (use absolute path and avoid double slashing) $FRICAS or
parent dir of FRICASsys before setting it to $spadroot.
- Qian
diff --git a/src/interp/util.lisp b/src/interp/util.lisp
index ffce3d1f..6acd1172 100644
--- a/src/interp/util.lisp
+++ b/src/interp/util.lisp
@@ -107,7 +107,8 @@ from scratch.
;;; of the {\bf FRICAS} shell variable at build time) if we can't.
;;; Use the parent directory of FRICASsys binary as fallback.
(defun initroot (&optional (newroot nil))
- (reroot (or (|getEnv| "FRICAS") newroot
+ (reroot (namestring (truename
+ (or (|getEnv| "FRICAS") newroot
(if (|fricas_probe_file| $spadroot) $spadroot)
(let ((bin-parent-dir
(concatenate 'string
--
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 [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/fricas-devel/01387e3b-4c75-4cb3-9ad0-22d665b11e17%40gmail.com.
