X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop-13.impure-cload.lisp;h=7dc5656a7b8e25cc00761a0b0760ee66788d3562;hb=cf49f2d086069a9c1b57f501df9a6a0bd3a34c3c;hp=1fbc7893c35b2a72205f0514cab0d3d25b9e468c;hpb=47bf3e24a52a2687bd8f07c4674cb9e81163085d;p=sbcl.git diff --git a/tests/mop-13.impure-cload.lisp b/tests/mop-13.impure-cload.lisp index 1fbc789..7dc5656 100644 --- a/tests/mop-13.impure-cload.lisp +++ b/tests/mop-13.impure-cload.lisp @@ -35,7 +35,7 @@ (defvar *count1* 0) -(defmethod myfun1 (a b) +(defmethod myfun1 (a b) (incf *count1*)) (myfun1 2 3) @@ -64,7 +64,7 @@ (defvar *count2* 0) -(defmethod myfun2 (a b) +(defmethod myfun2 (a b) (incf *count2*)) (myfun2 2 3)