lisp - 如何在 Racket 中将 sql-timestamp 转换为字符串？

Question

我在查看文档时想到的最接近的事情是

(define (sql-datetime->rfc2822 datetime)
  (let ([dt (sql-datetime->srfi-date datetime)])
    (date->string dt (date-display-format 'rfc2822))))

但是当我向它传递一个 sql-timestamp

时它失败了

> (sql-datetime->rfc2822 st)
. . date->string: contract violation
 expected: date?
 given: (tm:date 456232000 10 39 18 5 5 2013 0)
in: the 1st argument of
      (->* (date?) (any/c) string?)
contract from: <collects>/racket/date.rkt

Answer 1

在 Racket 版本 5.3.4 之前，您需要使用 srfi/19 库中的 date->string 函数，因为 racket 的结构类型/date 和 srfi/19 不兼容(在即将发布的5.3.4中，它们使用相同的结构)。如果您 (require srfi/19) 并使用那里定义的 API，它应该可以工作。