class - 使用类的 Common Lisp 替代方案

Question

我想知道如何存储单个变量并在该变量上具有特定的函数。我想知道是否有创建类的替代方法。

具体来说，我正在创建一个应用程序，我在其中存储一个时间值，表示从基准时间(例如，2000 年 1 月 1 日，00:00:00)开始经过的秒数。我想对此值执行操作，例如将其从秒数转换为特定时间或日期，或从日期转换为特定秒数。

我已经使用类完成了此操作，但它看起来很浪费。具体来说，每次我访问经过的秒数的存储值时，它看起来类似于 (time-time time) 其中 time-time 是时间实例 时间。

有没有更好的方法来设计这个，也许没有类？

Answer 1

访问者名称

您可以在 CLOS 中以任何您喜欢的方式命名访问器。访问器函数可以称为 seconds:

CL-USER 23 > (defclass mytime ()
               ((seconds :accessor seconds :initarg :seconds)))
#<STANDARD-CLASS MYTIME 422015CDD3>

CL-USER 24 > (let ((mt (make-instance 'mytime :seconds 100)))
               (values (seconds mt)
                       (truncate (seconds mt) 60)))
100
1

通过存取函数缩短对槽的访问

Common Lisp 也有一种形式WITH-ACCESSORS。它允许我们在代码中使用符号而不是访问器形式 - 对于某个 CLOS 对象。在下面的示例中，我们可以使用 secs，它在代码中看起来像一个变量，但 Common Lisp 会确保它实际上调用了访问器 seconds。我们可以写secs而不是(seconds mt)。因此，它有助于使封闭的代码更短。将下一个示例与上面的代码进行比较。

CL-USER 25 > (let ((mt (make-instance 'mytime :seconds 200)))
               (with-accessors ((secs seconds))
                   mt
                 (values secs (truncate secs 60))))
200
3

通过 SLOT-VALUE 缩短对插槽的访问权限

CLOS 还有 WITH-SLOTS 用于通过插槽名称访问插槽，这里可以通过访问 mytime 实例的名为 seconds 的插槽名称 secs:

CL-USER 26 > (let ((mt (make-instance 'mytime :seconds 200)))
               (with-slots ((secs seconds))
                   mt
                 (values secs (truncate secs 60))))
200
3