From d88adf7753d9df9027f151a348101fef689c3e5e Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Tue, 5 Oct 2004 22:01:41 +0000
Subject: [PATCH] Tell CMUCL how to pprint EXT:COLLECT and
 ANSI-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD.

We should teach CMUCL how to pprint other things too.
---
 code/pprint.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/code/pprint.lisp b/code/pprint.lisp
index ebe96a37d..dff80a4a1 100644
--- a/code/pprint.lisp
+++ b/code/pprint.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.43 2004/09/27 21:54:53 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.44 2004/10/05 22:01:41 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1529,7 +1529,11 @@
     (with-output-to-string pprint-block)
     (with-package-iterator pprint-block)
     (with-simple-restart pprint-block)
-    (with-standard-io-syntax pprint-progn)))
+    (with-standard-io-syntax pprint-progn)
+
+    ;; Other things in CMUCL that we ought to try to print out nicely.
+    (ext:collect pprint-block)
+    (ansi-loop::with-loop-list-collection-head pprint-block)))
 
 (defun pprint-init ()
   (setf *initial-pprint-dispatch* (make-pprint-dispatch-table))
-- 
GitLab