Common Lisp 替代使用类

Question

我想知道如何存储单个变量并在该变量上使用特定函数。我想知道是否有创建 class.

的替代方法

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

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

的访问器

是否有更好的设计方法，也许没有 classes？

Answer 1

您可以像这样在词法作用域上尝试闭包：

(let ((time (get-universal-time)))
  (defun set-time(tm)
    (setf time tm))

  (defun get-time()
    time)

  (defun get-time-in-some-other-format()
    ;; calculate return value based on 'time'
    )
)

Answer 2

访问者名称

您可以在 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 用于通过插槽名称访问插槽，这里可以通过名称 secs 访问 mytime 实例的名为 seconds 的插槽：

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

Answer 3

如果您有一个 class 只是包装了一个对象，并且该对象具有已知类型，那么您始终可以只为该对象的 class 编写方法：

(defmethod time-as-unix-time ((tm integer))
  (- tm (load-time-value (encode-universal-time 0 0 0 1 1 1970 0))))

例如

当然，如果面向对象的狂热者发现你在做这种事情，他们会把你扔进一个满是尖刺的坑里：这无疑违反了封装或其他一些邪教规则。

Common Lisp 替代使用类

Common Lisp alternative to using Classes

lisp

oop

class

common-lisp

clos

Common Lisp 替代使用 类

Common Lisp alternative to using Classes

lisp

oop

class

common-lisp

clos

Common Lisp 替代使用类