summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-04 15:53:30 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-04 15:53:30 +0100
commit0801c06d99060c5573e63c0557ca75f9a1025e57 (patch)
treee8fe0bb228911d11eebab2fede4d5f9c10a3943b
parentae1bcdbaef5bb544b61ecd234d4054ea782c30b2 (diff)
Fix the method definition test case.
darcs-hash:f72e60ebe476b5e25cb4710d3027833ff776a32d
-rw-r--r--Lisp/tests.lisp8
1 files changed, 5 insertions, 3 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp
index 1034aee..68f230a 100644
--- a/Lisp/tests.lisp
+++ b/Lisp/tests.lisp
@@ -28,7 +28,8 @@
#:objcl-object-backed-by-lisp-class-p
#:foreign-class-registered-p
#:define-objective-c-method #:defobjcmethod
- #:objective-c-generic-function #:objective-c-method))
+ #:objective-c-generic-function #:objective-c-method
+ #:+nil+ #:+yes+ #:+no+))
(in-package #:mulk.objective-cl.tests)
(in-root-suite)
@@ -425,12 +426,13 @@
(is (eval `(defgeneric |foo:bar:stuff:do:| (a b c d e &rest f)
(:generic-function-class objective-c-generic-function)
(:method-class objective-c-method))))
+ (is (find-objc-class "NSNumber"))
(is (eval `(define-objective-c-method |foo:bar:stuff:do:| :int
((x ,class-name)
(y :int)
z
- (a (eql nil))
- (b number)
+ (a (eql +nil+))
+ (b ns::ns-number)
&rest rest)
(declare (ignore z rest))
(+ y 150))))