From 5dd5704385c268c5d0fccc5dbd81de96f5737ad4 Mon Sep 17 00:00:00 2001
From: pmai <pmai>
Date: Wed, 5 Jun 2002 23:17:47 +0000
Subject: [PATCH] This fixes a bug noted by Nicolas Neuss, where executing a
 defclass form with a metaclass of structure-class would result in the
 generation of recursive print-object methods, so that the printing of
 instances of such a class would result in an endless loop.  The bug was
 caused by the changes that made structure-printing ANSI compliant.  Removing
 a now redundant :print-function option to the automatically generated
 defstruct form cured the problem.

---
 pcl/std-class.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp
index 1fd787d8b..4b4edd200 100644
--- a/pcl/std-class.lisp
+++ b/pcl/std-class.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.29 2002/06/05 23:00:12 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.30 2002/06/05 23:17:47 pmai Exp $")
 ;;;
 
 (in-package :pcl)
@@ -514,7 +514,6 @@
 	     (defstruct `(defstruct (,name
 				      ,@(when include
 					  `((:include ,(class-name include))))
-				      (:print-function print-std-instance)
 				      (:predicate nil)
 				      (:conc-name ,conc-name)
 				      (:constructor ,constructor ()))
-- 
GitLab