From 18a2324fc5a2f4ab10297874fa6f67e4be62bb54 Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Wed, 14 Mar 2001 23:25:16 +0000
Subject: [PATCH] Add defmethod print-object specialized on structure-object so
 that ANSI behaviour (print using #S(...) notation) happens.

---
 pcl/env.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/pcl/env.lisp b/pcl/env.lisp
index b7e12dbcc..b3d1b5952 100644
--- a/pcl/env.lisp
+++ b/pcl/env.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.12 1999/05/30 23:13:58 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.13 2001/03/14 23:25:16 pw Exp $")
 ;;;
 ;;; Basic environmental stuff.
 ;;;
@@ -37,6 +37,10 @@
 ;;;
 ;;;
 
+;;; ANSI compliance wants default structure printer to use #S(...) format.
+(defmethod print-object ((object structure-object) stream)
+  (lisp::default-structure-print object stream 0))
+
 (defgeneric describe-object (object stream))
 
 (defmethod describe-object (object stream)
-- 
GitLab