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.