(setf trans '((1 . "one")
(2 . "two")
(3 . "three")
(3 . "three2")))
;-------------------能否让hash表像上面代码一样初始化，目前只会像下面这样写
(setf ht (make-hash-table))
(setf ((gethash '1 ht) "one"
(gethash '2 ht) "two"
(gethash '3 ht) "three")))

额，格式怎么成这样了？

写个宏就可以了

alexandria里有个叫alist-hash-table的函数。