common-lisp - Allegro CL 中的 pprint

我正在尝试用 Common Lisp 编写一个动态创建其他 lisp 文件的程序。 Common Lisp 的 print 函数似乎对此非常有用。不幸的是，该函数在一行上输出数据。例如(只是打印到标准输出):

(print '(let ((a 1) (b 2) (c 3)) (+ a b c)))
>> (let ((a 1) (b 2) (c 3)) (+ a b c))

生成的 lisp 文件需要人类可读，因此不应最小化空格。 pprint 函数似乎是我问题的解决方案。由于 pprint sets *pretty-print* to true ，该函数应该打印在多行上。换句话说:

(pprint '(let ((a 1) (b 2) (c 3)) (+ a b c)))
>>  (let ((a 1)
>>        (b 2)
>>        (c 3))
>>    (+ a b c))

但是，在 Allegro CL 中， pprint 的行为似乎与打印相同。输出仅在一行上。有没有办法让函数以“漂亮”的方式打印 s 表达式？在函数正确打印之前是否还有其他全局变量需要设置？是否有我正在寻找的替代功能/宏？谢谢您的帮助!

最佳答案

pretty-print 不仅仅由 *print-pretty* 控制。例如，在 SBCL(在 SLIME 下)查看与 *print-right-margin* 的交互:

CL-USER> (pprint '(let ((a 1) (b 2) (c 3)) (+ a b c)))

(LET ((A 1) (B 2) (C 3))
  (+ A B C))
; No value
CL-USER> (let ((*print-right-margin* 10))
           (pprint '(let ((a 1) (b 2) (c 3)) (+ a b c))))

(LET ((A
       1)
      (B
       2)
      (C
       3))
  (+ A B
     C))
; No value
CL-USER> (let ((*print-right-margin* 20))
           (pprint '(let ((a 1) (b 2) (c 3)) (+ a b c))))

(LET ((A 1)
      (B 2)
      (C 3))
  (+ A B C))
; No value

您可能仅通过设置该变量就可以获得令人满意的结果，但通常您需要查看 22.2 The Lisp Pretty Printer 。 pretty-print 函数有很多地方可以放置可选的换行符等，它们的放置位置取决于许多因素(例如 *print-right-margin* 和 *print-miser-width*)。有一些使用 pretty-print 在 22.2.2 Examples of using the Pretty Printer 中格式化 Lisp 源代码的示例。引用它太多了，但它显示了以下 pretty-print 代码如何产生所有这些输出，具体取决于上下文:

(defun simple-pprint-defun (*standard-output* list)
  (pprint-logical-block (*standard-output* list :prefix "(" :suffix ")")
    (write (first list))
    (write-char #\Space)
    (pprint-newline :miser)
    (pprint-indent :current 0)
    (write (second list))
    (write-char #\Space)
    (pprint-newline :fill)
    (write (third list))
    (pprint-indent :block 1)
    (write-char #\Space)
    (pprint-newline :linear)
    (write (fourth list))))

 (DEFUN PROD (X Y)
   (* X Y))

(DEFUN PROD
       (X Y)
  (* X Y))

 (DEFUN
  PROD
  (X Y)
  (* X Y))

 ;;; (DEFUN PROD
 ;;;        (X Y)
 ;;;   (* X Y))

关于common-lisp - Allegro CL 中的 pprint，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/24295314/