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