From 882dc914fe54bf5f841db2f4794265de541d78b5 Mon Sep 17 00:00:00 2001 From: Shinmera Date: Tue, 30 Jul 2024 16:09:40 +0200 Subject: [PATCH] Store relative symlinks, not absolute ones. --- plaintext.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/plaintext.lisp b/plaintext.lisp index 56b4a27..5528d2d 100644 --- a/plaintext.lisp +++ b/plaintext.lisp @@ -200,7 +200,8 @@ :sources (mapcar #'serialize (sources object))) (let ((link (plaintext-file 'project (name object)))) (when (probe-file link) (delete-file link)) - (filesystem-utils:create-symbolic-link link (plaintext-file 'project (id object)))) + (filesystem-utils:create-symbolic-link + link (pathname-utils:relative-pathname link (plaintext-file 'project (id object))))) (store *storage* object 'excluded-systems) (store *storage* object 'excluded-paths) (store *storage* object 'releases))