From a1822aefae5f40f37f29b975a90a807e77b7bbc6 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Mon, 21 Jul 2003 17:36:47 +0000
Subject: [PATCH] 	* src/pcl/methods.lisp (print-object): Specialize on 
 standard-generic-function instead of generic-function which 	has no slot
 named methods.

---
 pcl/methods.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pcl/methods.lisp b/pcl/methods.lisp
index a2c42ea6d..0a6a3a2d0 100644
--- a/pcl/methods.lisp
+++ b/pcl/methods.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.39 2003/06/06 12:22:32 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.40 2003/07/21 17:36:47 gerd Exp $")
 
 (in-package :pcl)
 
@@ -90,7 +90,7 @@
 		  (unparse-specializers method)))
 	(call-next-method))))
 
-(defmethod print-object ((gf generic-function) stream)
+(defmethod print-object ((gf standard-generic-function) stream)
   (named-object-print-function
     gf
     stream
-- 
GitLab