Commit a1822aef authored by gerd's avatar gerd
Browse files

* src/pcl/methods.lisp (print-object): Specialize on

	standard-generic-function instead of generic-function which
	has no slot named methods.
parent ed92e5cc
Loading
Loading
Loading
Loading
+2 −2
Original line number Original line Diff line number Diff line
@@ -26,7 +26,7 @@
;;;
;;;


(file-comment
(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)
(in-package :pcl)


@@ -90,7 +90,7 @@
		  (unparse-specializers method)))
		  (unparse-specializers method)))
	(call-next-method))))
	(call-next-method))))


(defmethod print-object ((gf generic-function) stream)
(defmethod print-object ((gf standard-generic-function) stream)
  (named-object-print-function
  (named-object-print-function
    gf
    gf
    stream
    stream