diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-07 00:41:33 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-07 00:41:33 +0100 |
commit | 5f83cd7ee8cd3e1860f111b8f4b89afdc0b97d00 (patch) | |
tree | 2d4176c50f500805b369c6af9f3bd23ee287c50e /Lisp/tests.lisp | |
parent | 869adead6800b00d8dc17a9dfa2bdaf83a175c67 (diff) |
Use ENSURE-GENERIC-FUNCTION-USING-CLASS instead of ENSURE-GENERIC-FUNCTION.
darcs-hash:be3185662285bada199f68b1622c0be4ab399f29
Diffstat (limited to 'Lisp/tests.lisp')
-rw-r--r-- | Lisp/tests.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
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) |