common-lisp - 在普通 lisp 中将整数格式化为字符

Question

将整数格式化为字符序列的最佳方式是什么？我尝试了下面的代码块，它有效但不确定这样做是否正确:

(defun int2chars(x)
  (format t "~c~c~c~c~%"
      (code-char (ldb (byte 8 24) x))
      (code-char (ldb (byte 8 16) x))
      (code-char (ldb (byte 8 8) x))
      (code-char (ldb (byte 8 0) x))
      ))

(defun test()
  (let ((x #x75756964))
    (int2chars x)))

(test)

输入是0x75756964，输出是uuid

Answer 1

您可以编写一个适用于大于或小于 32 位的整数的函数:

(defun bytes-from-integer (integer)
  (check-type integer (integer 0))
  (loop
    with size = (* 8 (1- (ceiling (integer-length integer) 8)))
    for offset from size downto 0 by 8
    collect (ldb (byte 8 offset) integer)))

(bytes-from-integer #x75756964)
=> (117 117 105 100)

(bytes-from-integer #x7575696475756964)
=> (117 117 105 100 117 117 105 100)

然后，按如下方式转换为字符串:

(map 'string #'code-char (bytes-from-integer #x75756964))
=> "uuid"

---

备注:CHECK-TYPE是一个检查place 是否满足给定type 表达式的宏。上面，地方是integer变量，类型是(integer 0) ，相当于 (integer 0 *)，也称为 unsigned-byte。