From 9ee2896adde5844a552a54f15ee3e2e8fc45a856 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 7 Mar 2008 00:05:56 +0100 Subject: Eliminate a potential conflict between the documentation and the test suite. darcs-hash:99ee78d8d50d2d5486a973910d4a724dde67892b --- Lisp/tests.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index ac3eaca..170f41c 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -473,7 +473,7 @@ (* 2 (super))))) ;; We may omit DEFINE-OBJECTIVE-C-GENERIC-FUNCTION. - (is (eval `(define-objective-c-method #/foo:bar:stuff:do: :int + (is (eval `(define-objective-c-method #/foo:bar:pling:do: :int ((x ,class-name) (y :int) z @@ -495,7 +495,7 @@ (is (foreign-class-registered-p class)) ;; Method calls. - (is (= 170 (invoke instance :foo 150 :bar nil :stuff nil :do 100))) + (is (= 170 (invoke instance :foo 150 :bar nil :pling nil :do 100))) (is (= -30 (invoke numinstance :prettify-number 30))) (is (= -60 (invoke subnuminstance :prettify-number 30))) -- cgit v1.2.3