splatten in macro don't compile

[francescoagati]

with ths macro

(defmacro when-test (c &body)
'(if ~c
(do
~@Body)
FALSE))

 (when-test (== 2 2)
                   (. "line" 1)
                   "foobar")

i have this error

Notice: Undefined variable: flatten in /Users/Francesco/Downloads/Scriptor-pharen-452a373 2/pharen.php on line 1337

Warning: array_slice() expects parameter 1 to be array, null given in /Users/Francesco/Downloads/Scriptor-pharen-452a373 2/pharen.php on line 1337

Warning: array_merge(): Argument #2 is not an array in /Users/Francesco/Downloads/Scriptor-pharen-452a373 2/pharen.php on line 1337

Warning: array_shift() expects parameter 1 to be array, null given in /Users/Francesco/Downloads/Scriptor-pharen-452a373 2/pharen.php on line 2092

Fatal error: Class name must be a valid object or a string in /Users/Francesco/Downloads/Scriptor-pharen-452a373 2/pharen.php on line 2095
nagashima-2:Scriptor-pharen-452a373 2 Francesco$