Make paths embedded in Arduino sketch relative, not absolute.

anarchodin · Mar 24, 2021 · e543866 · e543866
1 parent 37992b3
commit e543866
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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))))