读者级别的Common Lisp调试

作者: 一腔诗意
发布时间: 2025-01-10 12:26:59 (4天前)
转自：

3 条回复

0#
回复此人
不丶离 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 您可以使用诸如macroexpand-1函数之类的东西，我将解释为什么它比正常的宏扩展更好： </p> <pre> <code> CL-USER> (defmacro our-when(test &body body) `(if ,test (progn ,@body))) OUR-WHEN CL-USER> (macroexpand-1 '(our-when(> 2 1)(format t "Hello World"))) (IF (> 2 1) (PROGN ((FORMAT T "Hello World")))) T CL-USER> </code> </pre> <P> 在这里我们创建一个宏，我们实际上可以看到宏如何扩展其中的表达式。有时候调试使用macroexpand-1与使用macroexpand时，因为macroexpand也会破坏你宏中的任何宏（比如内置的Common Lisp宏）。 Macroexpand-1会将细分限制为您创建的宏。 </p> </DIV>

编辑
1#
回复此人
滔滔江水 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 使用 <code> MACROEXPAND </code> 用于查看您的宏调用正在扩展的内容。 </p> <pre> <code> (pprint (macroexpand '(my-defun ...))) </code> </pre> </DIV>

编辑

登录后才能参与评论