在Common Lisp中扩展＆rest参数

Question

假设我总是厌倦了编写“format t ...”，并且想要少一些击键次数。

所以我写这篇文章：。

(defun puts (fstring &rest vars) 
    (format t fstring vars)) 

(puts "~a ~a" 1 2) 

;; error message results, because vars became (1 2) 

现在，vars已被改造成任何PARAMS我通过列表它需要“扩展”出来到值的列表。

解决此问题的典型解决方案是什么？

Answer 1

您可以使用apply：(apply #'format t fstring vars)将vars扩展为format的单独参数。

Answer 2

此外apply，也有可能与在其中您可以使用,@拼接反引号里面列出了宏做到这一点：

(defmacro puts (fstring &rest vars) 
    `(format t ,fstring ,@vars))