Fix transfer of remove-cache to subprocess

map-declt.lisp

 ;;;; 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

qrmapper.lisp

@@ -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)