Loading pcl/methods.lisp +2 −2 Original line number Original line Diff line number Diff line Loading @@ -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) Loading Loading @@ -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 Loading Loading
pcl/methods.lisp +2 −2 Original line number Original line Diff line number Diff line Loading @@ -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) Loading Loading @@ -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 Loading