From 0801c06d99060c5573e63c0557ca75f9a1025e57 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 4 Mar 2008 15:53:30 +0100 Subject: Fix the method definition test case. darcs-hash:f72e60ebe476b5e25cb4710d3027833ff776a32d --- Lisp/tests.lisp | 8 +++++--- 1 file 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)))) -- cgit v1.2.3