Nested foreach loop

In an attemt to make parametric simulation scripts a bit more readable, I wrote a macro that allows foreach loops to be nested. I have not tested it fully, but I would like the readers' input on my code. The code generates a string containing the foreach loop, before evaluating it. It feels a bit clumsy, but I was unable to think of an simpler way to do this. Any suggestions?

TOForeachNestFunc=lambda( (Symbols Lists Commands)
let(((DeclareLoopVars nil) (DeclareLoopHead "") (DeclareLoopBody "") (DeclareLoopTail "")
	(MainLoop "foreach( (") (LetStringHead "let((") Result )
;We'll need to create a loop that declares the expanded sweep lists,
;before creating a main loop that runs through all the expanded sweep lists and
;executes the commands.

	foreach((List Symbol) Lists Symbols
	 DeclareLoopVars=cons(sprintf(nil "%sS" Symbol) DeclareLoopVars)
	 DeclareLoopBody=strcat(DeclareLoopBody sprintf(nil "%sS=cons(%s %sS) " Symbol Symbol Symbol))
	 DeclareLoopHead=strcat(DeclareLoopHead sprintf(nil "foreach(%s '%L " Symbol List ))
	 DeclareLoopTail=strcat(DeclareLoopTail ")")
	 MainLoop = strcat(MainLoop Symbol " ")
	)
	MainLoop = strcat(MainLoop ") ")

	foreach(Var reverse(DeclareLoopVars)
		LetStringHead=strcat(LetStringHead "(" Var " nil) ")
		MainLoop = strcat(MainLoop Var " ")
		)
	LetStringHead=strcat( LetStringHead ")")
	MainLoop = strcat(MainLoop "\n" Commands "\n) ")
	Result=strcat(LetStringHead "\n" DeclareLoopHead "\n" DeclareLoopBody "\n" DeclareLoopTail "\n" MainLoop "\n" ")")
	)
)



defmacro(TOForeachNest (Symbols Lists @rest Commands)
;Executes a nested foreach loop
;Symbols: A list of variables that are used in the commands.
;List:A list of lists that contain the values to be swept
;Example: 
;	TempL= '(-40.0 27.0 85.0)
;	VSupplyL= '(3.2 3.3 3.4)
;
;	TOForeachNest('(Temp VSupply) list(VSupplyL TempL)
;	printf("Temperature: %e, Supply Voltage: %e", Temp VSupply)
;	)
;expands to:
;	foreach(Temp TempL
;		foreach(VSupply VSupplyL
;			printf("Temperature: %e, Supply Voltage: %e\n", Temp VSupply)
;)
;)

	let((CommandString)
	CommandString=sprintf(nil "%L" ,Commands)
		CommandString=substring(CommandString 2 strlen(CommandString)-2)
		`let((Result)
			Result=funcall(,TOForeachNestFunc ,Symbols ,Lists ,CommandString)
			evalstring(Result)
		)
	)
)