打印在快板CL

Question

我正在尝试用Common Lisp编写一个动态创建其他Lisp文件的程序。通用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将*pretty-print*设置为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的行为方式似乎与print相同。输出仅在一行上。是否有一种方法可以使函数以"漂亮"的方式打印s-表达式?在函数正确打印之前是否需要设置其他全局变量?是否有我正在寻找的替代功能/宏?谢谢你的帮助!

Answer 1

漂亮的打印机不仅仅是由*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。漂亮的打印函数有很多地方可以放置可选的换行符之类的东西，它们的位置取决于很多东西(比如*print-right-margin*和*print-miser-width*)。在22.2.2使用pretty printer的示例中有一些使用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))))

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

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

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

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