lisp - 如何在 Common Lisp 中返回变量的值和名称

Question

我正在尝试编写一个宏以在普通 lisp 中返回变量的名称和值。如何在 LISP 宏中返回变量的名称和值？

类似的东西

(返回值(x))

会回来

x 的值为 5

Answer 1

(defmacro returnval (x)
  `(format t "~a has value ~a." ',x ,x))

CL-USER> (defparameter *forty-two* 42)
*FORTY-TWO*
CL-USER> (returnval *forty-two*)
*FORTY-TWO* has value 42.
NIL
CL-USER> (let ((x 5))
           (returnval x))
X has value 5.
NIL

如果你真的想要在表单周围添加一组额外的括号，你也可以这样做:

(defmacro returnval ((x))
  `(format t "~a has value ~a." ',x ,x))

CL-USER> (returnval (*forty-two*))
*FORTY-TWO* has value 42.
NIL
CL-USER> (let ((x 5))
           (returnval (x)))
X has value 5.
NIL