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