Improve directory handling (#57)

* Improve directory handling. We need to ensure we are getting directory pathnames not file pathnames. * Remove unnecessary script The run-local.sh script is superseded by run-in-docker.sh script.
exercism · Nov 7, 2023 · e40a9a6 · e40a9a6
1 parent 9416cab
commit e40a9a6
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 20 deletions.
diff --git a/bin/run-local.sh b/bin/run-local.sh
diff --git a/src/representer/main.lisp b/src/representer/main.lisp
@@ -1,11 +1,14 @@
 (in-package :representer/main)
 
 (defun solution-file (slug directory)
-  (merge-pathnames (make-pathname :name slug :type "lisp") directory))
+  (merge-pathnames (make-pathname :name slug :type "lisp")
+                   (uiop:ensure-directory-pathname directory)))
 (defun representation-file (directory)
-  (merge-pathnames (make-pathname :name "representation" :type "txt") directory))
+  (merge-pathnames (make-pathname :name "representation" :type "txt")
+                   (uiop:ensure-directory-pathname directory)))
 (defun mapping-file (directory)
-  (merge-pathnames (make-pathname :name "mapping" :type "json") directory))
+  (merge-pathnames (make-pathname :name "mapping" :type "json")
+                   (uiop:ensure-directory-pathname directory)))
 (defun repr-package-name (slug) (format nil "~:@(~A~)-REPR" slug))
 
 (defun kill-package (package-name) (ignore-errors (delete-package package-name)))