Question

我想知道如何存储单个变量并在该变量上具有特定功能。我想知道是否有创建课程的替代方案。

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

我使用课程完成了这项工作，但这似乎很浪费。具体来说，每次我访问存储的值超过秒数时，它看起来与(time-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通过插槽名称进行插槽访问，此处seconds实例的名为mytime的插槽可以通过名称secs访问：

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

Answer 2

如果你有一个只包装单个对象的类，并且该对象具有已知类型，那么你总是可以为该对象的类编写方法：

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

例如。

当然，面向对象的狂热者如果抓到你做这类事情，就会把你扔进一个充满尖刺的坑里：毫无疑问，它会侵犯封装或其他邪教统治。

Answer 3

您可以尝试在这样的词法范围内进行闭包：

(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'
    )
)

Common Lisp替代使用Classes

3 个答案: