Add ensure-directories-exist

yitzchak · Oct 15, 2024 · f59c845 · f59c845
1 parent cbfa80d
commit f59c845
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/kernel.lisp b/src/kernel.lisp
@@ -363,6 +363,7 @@
   (: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))))