From 5f83cd7ee8cd3e1860f111b8f4b89afdc0b97d00 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 7 Mar 2008 00:41:33 +0100 Subject: Use ENSURE-GENERIC-FUNCTION-USING-CLASS instead of ENSURE-GENERIC-FUNCTION. darcs-hash:be3185662285bada199f68b1622c0be4ab399f29 --- Lisp/tests.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Lisp/tests.lisp') diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 170f41c..902cc34 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -432,11 +432,11 @@ (incf *class-counter*)))) (numclass-name (intern (format nil "~A~D" '#:mlk-test-number - (incf *class-counter*)) + *class-counter*) '#:objective-c-classes)) (subnumclass-name (intern (format nil "~A~D" '#:mlk-test-sub-number - (incf *class-counter*)) + *class-counter*) '#:objective-c-classes)) (class nil) (instance nil) -- cgit v1.2.3