From df382de7fb4d322fa04de8a552ac8c7c06b12f3b Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 13 Jul 2004 13:43:59 +0000 Subject: [PATCH] Add def-ppblock-test --- ansi-tests/printer-aux.lsp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp index 19b052ef..821c0a24 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. -- GitLab