创建可变定义维度数组时出错

Question

以下是REPL的一些文字：

CL-USER> (setf x 10)
10
CL-USER> (make-array 10)
#(0 0 0 0 0 0 0 0 0 0)
CL-USER> (make-array x)
#(0 0 0 0 0 0 0 0 0 0)
CL-USER> (make-array '(x x))

最后一行给了我错误： 值X不是预期类型REAL。

任务是创建方阵n * n，其中n由用户定义。也许有另一种方法可以做到这一点？