Commit 87c26529 authored by Antoine Martin's avatar Antoine Martin
Browse files

Fix transfer of remove-cache to subprocess

parent 4d50b9a3
;;;; This file has to be run through qlmapper:map-releases "file"
(when cl-user::*remove-cache*
(when *remove-cache*
(sb-ext:run-program "/bin/rm"
(list "-rf"
(namestring
......
......@@ -46,6 +46,9 @@
(mapcar (lambda (eval)
(list "--eval" eval))
evals)
"--eval"
(format nil "(defparameter *remove-cache* ~S)"
*remove-cache*)
"--load" (native-truename file))
:environment (append (environment-list environment-pairs)
(sb-ext:posix-environ))
......@@ -74,9 +77,7 @@
(run-sbcl :file file
:pre-file pre-file
:environment-pairs (list "*qrmapper-object-name*"
name
"*remove-cache*"
*remove-cache*)
name)
:evals evals))))))))
(defun map-releases (file &key (dist-name "quicklisp") (filter 'identity)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment