Question

我试图在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似乎表现得与打印相同。输出仅在一行上。有没有办法让函数在＆＃34;漂亮＆＃34;中打印s表达式？办法？在函数正确打印之前是否需要设置其他全局变量？我还在寻找替代功能/宏吗？谢谢你的帮助！

Answer 1

漂亮的打印机不仅仅是* print-pretty *。例如，看看在SBCL中与*print-right-margin*的互动（在SLIME下）：

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 Examples of using the 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))

ple in Allegro CL

1 个答案: