enums - Common Lisp 中的可比较(可排名/可排序)枚举

Question

我想知道是否有任何技巧或库可以在 Common Lisp 中获得可排序的枚举。

一般来说我定义了一组像这样的枚举

(deftype weekdays()
    '(member :sunday :monday :tuesday :wednesday :thursday :friday :saturday))

我当然可以比较两个包含相同工作日的变量，例如如果两者都包含:星期三。

但我想比较两个不同的工作日，例如“星期四晚于星期一吗”？这让我回到常数

(defconstant +sunday+ 0)
(defconstant +monday+ 1)
and so on...

但这似乎是一种糟糕的风格。

执行此操作的最佳做​​法是什么？

Answer 1

如果你在单独的列表中定义元素，你可以只按位置比较它们:

(defparameter *days*
  '(:sunday :monday :tuesday :wednesday :thursday :friday :saturday)
  "Keywords indicating days of the week.")

(deftype day ()
  "Type representing days.  A day is an element of the list *DAYS*."
  `(member ,@*days*))

(defun day< (day1 day2)
  "Returns true if DAY1 is earlier in the week than DAY2, according to
the order specified in *DAYS*."
  (< (position day1 *days*)
     (position day2 *days*)))

(typep :monday 'day) ;=> T
(typep :fooday 'day) ;=> NIL

(day< :monday :friday) ;=> T
(day< :thursday :tuesday) ;=> NIL