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"
......@@ -46,6 +46,9 @@
(mapcar (lambda (eval)
(list "--eval" eval))
(format nil "(defparameter *remove-cache* ~S)"
"--load" (native-truename file))
:environment (append (environment-list environment-pairs)
......@@ -74,9 +77,7 @@
(run-sbcl :file file
:pre-file pre-file
:environment-pairs (list "*qrmapper-object-name*"
:evals evals))))))))
(defun map-releases (file &key (dist-name "quicklisp") (filter 'identity)
Supports Markdown
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