如何在没有实际打印的情况下从（错误）对象生成字符串？

Question

我想检索由write生成的字符串，以便在不进行任何实际输出的情况下进行进一步处理，但是write似乎总是也输出到REPL中

CL-USER>(let ((err-string (write (make-instance 'error) :stream nil)))
          (do-awesome-stuff-with-string err-string))
<ERROR> ;;this is the printing I want to get rid of
"awesome-result"

为什么write还是输出到REPL，以及我如何摆脱呢？

Answer 1

您可以为此使用with-output-to-string 。 这是一个例子：

(flet ((do-awesome-stuff-with-string (string)
         (concatenate 'string string " is awesome!")))
  (let ((err-string (with-output-to-string (s)
                      (write (make-instance 'error) :stream s))))
    (do-awesome-stuff-with-string err-string)))
;; => "#<ERROR {25813951}> is awesome!"

这里的下面是对HyperSpec进入with-output-to-string 。

原因(write (make-instance 'error) :stream nil)不起作用是因为write的:stream参数是一个流指示符 ，在这种情况下nil是*standard-output*简写。 （ format实际上取nil表示它应该返回一个字符串，这是一个常见的混淆点）。

Answer 2

请记住， MAKE-CONDITION产生可移植的错误。 该标准没有说错误是CLOS类，因此MAKE-INSTANCE在某些实现中可能不起作用。

有两种简单的方法来获取字符串：

a）文字说明：

CL-USER 15 > (princ-to-string (make-condition 'error))
"The condition #<ERROR 4020311270> occurred"

b）打印的错误对象：

CL-USER 16 > (prin1-to-string (make-condition 'error))
"#<ERROR 402031158B>"