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