translate logical paths for ABCL

yitzchak · Oct 16, 2024 · 0df344d · 0df344d
1 parent 945c4e0
commit 0df344d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git 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
@@ -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",