lisp编写一个矩形

在LISP语言中，你可以使用`(make-instance 'rectangle :width width :height height)`这样的结构来表示一个矩形，其中`'rectangle`通常代表一个预定义的矩形类，`:width`和`:height`则是矩形的宽度和高度属性。下面是一个简单的例子：

(defclass rectangle ()
   ((width :accessor rectangle-width
         :initarg :width
         :documentation "矩形的宽度")
    (height :accessor rectangle-height
           :initarg :height
           :documentation "矩形的高度"))
   (:constructor make-rectangle
                :initargs (width . height)))

;; 创建一个矩形
(let ((my-rect (make-rectangle :width 10 :height 5)))
  (format t "创建了一个宽~a，高~a的矩形。" (rectangle-width my-rect) (rectangle-height my-rect)))

;; 访问矩形属性
(format t "矩形的宽度是~a，高度是~a。" (rectangle-width my-rect) (rectangle-height my-rect)))