From 9a0d61d81e665646b8b35c9c0ba69c343d1180d7 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Fri, 30 May 2003 09:33:32 +0000 Subject: [PATCH] * src/pcl/rt/defmethod.lisp (defmethod-setf-fdefinition.0) (defmethod-setf-fdefinition.1): New tests. --- pcl/rt/defmethod.lisp | 27 ++++++++++++++++++++++++++- 1 file changed, 26 insertions(+), 1 deletion(-) diff --git a/pcl/rt/defmethod.lisp b/pcl/rt/defmethod.lisp index 857736b39..fddcc46bc 100644 --- a/pcl/rt/defmethod.lisp +++ b/pcl/rt/defmethod.lisp @@ -28,7 +28,7 @@ ;;; DAMAGE. #+cmu -(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/defmethod.lisp,v 1.4 2003/04/14 21:45:22 gerd Exp $") +(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/defmethod.lisp,v 1.5 2003/05/30 09:33:32 gerd Rel $") (in-package "PCL-TEST") @@ -116,3 +116,28 @@ (values r (null c))) 3 t) +(deftest defmethod-setf-fdefinition.0 + (multiple-value-bind (r c) + (ignore-errors + (defgeneric dsf.0 (x)) + (defmethod dsf.0 ((x integer)) x) + (setf (fdefinition 'dsf.1) #'dsf.0) + (defmethod dsf.1 ((x string)) x) + (list (length (mop:generic-function-methods #'dsf.0)) + (equal (mop:generic-function-methods #'dsf.1) + (mop:generic-function-methods #'dsf.0)))) + (values r (null c))) + (2 t) t) + +(deftest defmethod-setf-fdefinition.1 + (multiple-value-bind (r c) + (ignore-errors + (defgeneric dsf.2 (x)) + (defmethod dsf.2 ((x integer)) x) + (setf (fdefinition 'dsf.3) #'dsf.2) + (defmethod dsf.3 ((x integer)) x) + (list (length (mop:generic-function-methods #'dsf.2)) + (equal (mop:generic-function-methods #'dsf.3) + (mop:generic-function-methods #'dsf.2)))) + (values r (null c))) + (1 t) t) -- GitLab