From e54386617aeb585e712acd0d5ee1e6b093266cf2 Mon Sep 17 00:00:00 2001
From: Herbert Snorrason <odin@anarchism.is>
Date: Wed, 24 Mar 2021 14:13:29 +0000
Subject: [PATCH] Make paths embedded in Arduino sketch relative, not absolute.

---
 sections.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/sections.lisp b/sections.lisp
index e389c79..6b0c1e6 100644
--- a/sections.lisp
+++ b/sections.lisp
@@ -20,6 +20,9 @@
   "Writes the source code of a given section for a given platform to a given stream."
   (multiple-value-bind (code filename)
       (get-section section platform)
-    (if filename (format stream "#line 1 \"~a\"~%" filename))
+    (if filename
+        (format stream "#line 1 \"~a\"~%"
+                (uiop:enough-pathname filename
+                                      (asdf:system-relative-pathname :ulisp-build ""))))
     (if code (write-line code stream)
         (warn "No code for section ~a on platform ~a." section platform))))