我想知道如何存储单个变量并在该变量上具有特定的函数。我想知道是否有创建类的替代方法。
具体来说,我正在创建一个应用程序,我在其中存储一个时间值,表示从基准时间(例如,2000 年 1 月 1 日,00:00:00)开始经过的秒数。我想对此值执行操作,例如将其从秒数转换为特定时间或日期,或从日期转换为特定秒数。
我已经使用类完成了此操作,但它看起来很浪费。具体来说,每次我访问经过的秒数的存储值时,它看起来类似于 (time-time time)
其中 time-time
是时间实例 时间
。
有没有更好的方法来设计这个,也许没有类?
最佳答案
访问者名称
您可以在 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
关于class - 使用类的 Common Lisp 替代方案,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39086336/