From 478d24f865d6b63edd1fda7cdfeefe8c29b0883e Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Sat, 24 Oct 2015 22:22:24 +0200 Subject: [PATCH] Fix root-dir initialization for ccl, see #303. When using Clozure Common Lisp apparently a :absolute directory component for make-pathname is supposed to contain a single path component, fix by using parse-native-namestring instead. In case it's needed, the following spelling seems portable enough: CL-USER> (uiop:merge-pathnames* (uiop:make-pathname* :directory '(:relative "pgloader")) (uiop:make-pathname* :directory '(:absolute "tmp"))) #P"/tmp/pgloader/" --- src/params.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/params.lisp b/src/params.lisp index 836168e..645e538 100644 --- a/src/params.lisp +++ b/src/params.lisp @@ -71,9 +71,9 @@ "Where to load files from, when loading from an archive or expanding regexps.") (defparameter *root-dir* - #+unix (uiop:make-pathname* :directory '(:absolute "tmp/pgloader")) + #+unix (uiop:parse-native-namestring "/tmp/pgloader/") #-unix (uiop:merge-pathnames* - "pgloader/" + (uiop:make-pathname* :direction '(:relative "pgloader")) (uiop:ensure-directory-pathname (getenv-default "Temp"))) "Top directory where to store all data logs and reject files.")