fixup! Output BUILD-PATHNAME

melusina-org · Oct 1, 2023 · 22eadeb · 22eadeb
1 parent 500b3f7
commit 22eadeb
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/action.lisp b/action.lisp
@@ -38,9 +38,13 @@
 	     (unless pathname
 	       (error "Build system ~A does not define a BUILD-PATHNAME." system)))
 	   (finalize-pathname ()
-	     (if (uiop:os-windows-p)
-		 (concatenate 'string pathname ".exe")
-		 pathname)))
+	     (let ((program-pathname
+		     (if (uiop:os-windows-p)
+			 (concatenate 'string pathname ".exe")
+			 pathname)))
+	       (merge-pathnames
+		program-pathname
+		(asdf:system-source-directory system)))))
       (ensure-build-pathname-is-set)
       (finalize-pathname))))