mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-08 23:37:00 +02:00
Code Issues Projects Releases Wiki Activity

Fix root-dir initialization for ccl, see #303.

Browse Source 
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/"
This commit is contained in:
Dimitri Fontaine 2015-10-24 22:22:24 +02:00
parent 4df3167da1
commit 478d24f865
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/params.lisp
View File

@ -71,9 +71,9 @@
"Where to load files from, when loading from an archive or expanding regexps.") "Where to load files from, when loading from an archive or expanding regexps.")
(defparameter *root-dir* (defparameter *root-dir*
#+unix (uiop:make-pathname* :directory '(:absolute "tmp/pgloader")) #+unix (uiop:parse-native-namestring "/tmp/pgloader/")
#-unix (uiop:merge-pathnames* #-unix (uiop:merge-pathnames*
"pgloader/" (uiop:make-pathname* :direction '(:relative "pgloader"))
(uiop:ensure-directory-pathname (getenv-default "Temp"))) (uiop:ensure-directory-pathname (getenv-default "Temp")))
"Top directory where to store all data logs and reject files.") "Top directory where to store all data logs and reject files.")