Lisp程序：获取矩形的四个点坐标并赋值给变量s和s4

在Lisp编程语言中，我们可以使用一些简单的数学计算来获得矩形的四个顶点坐标。下面是一个示例程序，它可以帮助你实现这一目标：

(defun get-rectangle-points (x y width height)
  (let ((s