面向对象

面向对象

Common Lisp通过几十年的面向对象编程的推进。但是，面向对象被并入是在它最后一阶段。

类的定义

defclass宏允许创建用户定义的类。它建立了一个类作为数据类型。它的语法如下：

(DEFCLASS class\-name (superclass\-name\*)  
(slot\-description\*) 
class\-option\*)

插槽是存储数据变量或字段。

slot-description形式(插槽名称插槽选项*)，其中每个选项是一个关键字后跟一个名字，表达式和其他选项。最常用的槽选项是：

• :accessor 函数名称

• :initform 表达式

• :initarg 符号

例如，让我们定义一个Box类，有三个槽的长度，广度和高度。

(defclass Box  ()  (length 
breadth 
height))

提供访问和读/写控制到一个插槽

除非有插槽可以访问，读取或写入的值，类是好看不中用。

当定义一个类可以为每个插槽指定访问。例如，把我们的Box类：

(defclass Box  () 
((length :accessor length) 
(breadth :accessor breadth)  
(height :accessor height)))

也可以读取和写入一个插槽指定单独的访问器的名称。

(defclass Box  () 
((length :reader get\-length :writer set\-length) 
(breadth :reader get\-breadth :writer set\-breadth)
(height :reader get\-height :writer set\-height)))

类创建实例

通用函数make-instance创建并返回一个类的新实例。

它的语法如下：

(make\-instance class  {initarg value}\*)

示例

让我们创建一个Box类，有三个插槽，长度，宽度和高度。我们将使用三个插槽存取到这些字段设置的值。

创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：

(defclass box ()  ((length :accessor box\-length) 
(breadth :accessor box\-breadth)  (height :accessor box\-height)))  
(setf item (make\-instance 'box))
(setf (box-length item) 10)
(setf (box-breadth item) 10)
(setf (box-height item) 5)
(format t "Length of the Box is ~d~%" (box-length item))
(format t "Breadth of the Box is ~d~%" (box-breadth item))
(format t "Height of the Box is ~d~%" (box-height item))

当执行代码，它返回以下结果：

Length of the Box  is  10  Breadth of the Box  is  10  Height of the Box  is  5

定义一个类的方法

defmethod宏允许在类中定义一个方法。下面的示例扩展Box类包含一个方法名为volume。

创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：

(defclass box ()  ((length :accessor box\-length)
(breadth :accessor box\-breadth)  
(height :accessor box\-height)  
(volume :reader volume)))  ; method calculating volume 
(defmethod volume ((object box))  (\*  (box\-length object)
(box\-breadth object)(box\-height object)))  ;
setting the values (setf item (make\-instance 'box))
(setf (box-length item) 10)
(setf (box-breadth item) 10)
(setf (box-height item) 5)

; displaying values

(format t "Length of the Box is ~d~%" (box-length item))
(format t "Breadth of the Box is ~d~%" (box-breadth item))
(format t "Height of the Box is ~d~%" (box-height item))
(format t "Volume of the Box is ~d~%" (volume item))

当执行代码，它返回以下结果：

Length of the Box  is  10 
Breadth of the Box  is  10  
Height of the Box  is  5 
Volume of the Box  is  500

继承

LISP允许在另一个对象来定义一个对象。这就是所谓的继承。可以通过添加功能，新的或不同的创建派生类。派生类继承了父类的功能。

下面的例子说明了这一点：

创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：

(adsbygoogle = window.adsbygoogle || \[\]).push({});

(adsbygoogle = window.adsbygoogle || \[\]).push({});

(defclass box ()  ((length :accessor box\-length) 
(breadth :accessor box\-breadth)  
(height :accessor box\-height)  
(volume :reader volume)))  ; 
method calculating volume (defmethod volume ((object box)) 
(\*  (box\-length object)  (box\-breadth object)(box\-height object)))  ;
wooden\-box class inherits the box class  (defclass wooden\-box (box) 
((price :accessor box\-price)))  ;setting the values 
(setf item (make\-instance 'wooden-box))
(setf (box-length item) 10)
(setf (box-breadth item) 10)
(setf (box-height item) 5)
(setf (box-price item) 1000)

; displaying values

(format t "Length of the Wooden Box is ~d~%" (box-length item))
(format t "Breadth of the Wooden Box is ~d~%" (box-breadth item))
(format t "Height of the Wooden Box is ~d~%" (box-height item))
(format t "Volume of the Wooden Box is ~d~%" (volume item))
(format t "Price of the Wooden Box is ~d~%" (box-price item))

当执行代码，它返回以下结果：

Length of the Wooden  Box  is  10 
Breadth of the Wooden  Box  is  10 
Height of the Wooden  Box  is  5 
Volume of the Wooden  Box  is  500  
Price of the Wooden  Box  is  1000