From a3299922493738787435f14cb41018499a5a930e Mon Sep 17 00:00:00 2001
From: Aleksei Rybnikov <14005836+arkh-node@users.noreply.github.com>
Date: Sun, 30 Aug 2026 22:16:40 +0200
Subject: [PATCH] Fix hardcoded /srv/langs/nolang paths in test/51 and test/52

Both tests loaded sources by absolute path to the author's workstation
clone, so they died with SB-INT:SIMPLE-FILE-ERROR in any clone elsewhere
- caught by the CI workflow's first run (#21). Switched to the portable
merge-pathnames convention every other test already uses.

Fixes #22
---
 test/51_composition.lisp | 2 +-
 test/52_sequence.lisp    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/51_composition.lisp b/test/51_composition.lisp
index 9a08f0f..023a872 100644
--- a/test/51_composition.lisp
+++ b/test/51_composition.lisp
@@ -1,4 +1,4 @@
-(load "/srv/langs/nolang/src/parse.lisp")
+(load (merge-pathnames "../src/parse.lisp" *load-pathname*))
 
 (defparameter *prog* "
 lattice provenance = silence < image < tradition < strict
diff --git a/test/52_sequence.lisp b/test/52_sequence.lisp
index 4322e6f..7f733a6 100644
--- a/test/52_sequence.lisp
+++ b/test/52_sequence.lisp
@@ -1,4 +1,4 @@
-(load "/srv/langs/nolang/src/verdict.lisp")
+(load (merge-pathnames "../src/verdict.lisp" *load-pathname*))
 (defun chk (name pred) (format t "~&~:[FAIL~;OK~] ~a~%" pred name))
 (defun perf-p (ledger act)
   (find-if (lambda (e) (and (eq (first e) :performed) (same-name-p (second e) act))) ledger))