From 0df344dc3df8277190c1bd2176bc3446f026f65c Mon Sep 17 00:00:00 2001
From: "Tarn W. Burton" <twburton@gmail.com>
Date: Wed, 16 Oct 2024 10:20:35 -0400
Subject: [PATCH] translate logical paths for ABCL

---
 src/kernel.lisp      | 7 ++++---
 tests/test_kernel.py | 2 +-
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/kernel.lisp b/src/kernel.lisp
index 418fe51b..4c1b78ef 100644
--- a/src/kernel.lisp
+++ b/src/kernel.lisp
@@ -363,9 +363,10 @@
   (:documentation "Save the code to the provided source-path.")
   (:method (kernel code source-path)
     (declare (ignore kernel))
-    (ensure-directories-exist source-path)
-    (with-open-file (stream source-path :direction :output :if-exists :supersede)
-      (write-string code stream))))
+    (let ((path (translate-logical-pathname source-path)))
+      (ensure-directories-exist path)
+      (with-open-file (stream path :direction :output :if-exists :supersede)
+        (write-string code stream)))))
 
 
 (defgeneric debug-evaluate-code (kernel environment code frame context)
diff --git a/tests/test_kernel.py b/tests/test_kernel.py
index 88b5dfb6..26365d1a 100644
--- a/tests/test_kernel.py
+++ b/tests/test_kernel.py
@@ -17,7 +17,7 @@ def sanitize_path(p):
 @pytest.fixture(
     params=[
         "common-lisp",
-        #"common-lisp_abcl",
+        "common-lisp_abcl",
         "common-lisp_ccl",
         "common-lisp_clasp",
         "common-lisp_clisp",