Ampliar el parámetro a & rest en Common Lisp

Question

Supongamos que me canso de escribir "format t ..." todo el tiempo, y quiero algo con menos teclas.

así que escribir esto:.

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

(puts "~a ~a" 1 2) 

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

Ahora, vars se ha transformado en una lista de cualquier params pasé en Tiene que ser "ampliado" hacia fuera en una lista de valores.

¿Cuál es la solución típica para este problema?

Answer 1

Puede usar apply para eso: (apply #'format t fstring vars) amplía vars en argumentos separados a format.

Answer 2

Además apply, existe también la posibilidad de hacer esto con una macro en el que se puede utilizar para empalmar ,@ listas dentro de acentos graves:

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