Fix the method definition test case.

darcs-hash:f72e60ebe476b5e25cb4710d3027833ff776a32d

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))))