用LISP写一个让文字居中的

在LISP中实现文字居中可以使用以下代码：

(defun center-text (text width)
  (let* ((text-length (length text))
         (padding (/ (- width text-length) 2)))
    (concatenate 'string (make-string padding :initial-element #\Space) text (make-string padding :initial-element #\Space))))

这个函数接受两个参数：要居中的文本和所需的宽度。它计算出文本的长度和所需填充的空格数量，然后使用LISP的字符串拼接函数 `concatenate` 将文本和填充的空格组合成一个新的字符串，从而实现居中的效果。