diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp index 19b052ef77800f18d78b923643c36715ad1c64a2..821c0a24bb0e9c106e6beb8580d65d62c11cff2e 100644 --- a/ansi-tests/printer-aux.lsp +++ b/ansi-tests/printer-aux.lsp @@ -39,6 +39,13 @@ ,form)) ,expected-value)) +(defmacro def-ppblock-test (name form expected-value &rest key-args) + `(def-pprint-test ,name + (with-output-to-string + (*standard-output*) + (pprint-logical-block (*standard-output* nil) ,form)) + ,expected-value + ,@key-args)) ;;; Function to test readable of printed forms, under random settings ;;; of various printer control variables.