Common lisp 快板中的pprint

我正在尝试用CommonLisp编写一个程序，动态创建其他Lisp文件。Common Lisp的

print

函数似乎非常有用。不幸的是，该函数只在一行上输出数据。例如（仅打印到标准输出）：

生成的lisp文件需要可读，因此不应最小化空白。似乎

pprint

函数就是我问题的解决方案。因为，函数应该打印在多行上。换言之：

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

---

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

漂亮的打印机不仅仅由“漂亮的打印”控制。例如，查看SBCL中的相互作用（在粘液下）：

通过设置该变量，您可能会得到令人满意的结果，但一般来说，您需要了解一下。漂亮的打印功能有很多地方可以放置可选的换行符等，它们放在哪里取决于很多东西（比如*打印右边距*和*打印米瑟宽度*）。这里有一些使用pretty printer格式化Lisp源代码的示例。这里有太多的东西无法全部引用，但它展示了以下漂亮的打印代码如何根据上下文生成所有这些输出：

(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))))

---

你的目标是什么？你的体型并没有那么大；就打印机而言，也许它不太大，一行装不下。您可以为代码格式设置自定义打印分派表。感谢接受；我想答案是有用的出于好奇，你最终选择了哪条路线？玩打印右边距够了吗，或者你用漂亮的打印机写了一些自定义函数了吗？@JoshuaTaylor最后，玩

*打印右边距*

是不够的。我最终为我需要输出的构造集定义了pprint函数（类似于来自的

pprint let

函数）。谢谢！

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

(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))