diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 22:54:09 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 22:54:09 +0100 |
| commit | b450583841e5661383a2dff9408e23ea3e313b5a (patch) | |
| tree | eb45fa9d98ed51b64c1407343ab44fdc91bfc96b /Lisp/tests.lisp | |
| parent | 2bfce24e72cfa7a339b485980925839f769e5224 (diff) | |
Introduce macro DEFINE-OBJECTIVE-C-GENERIC-FUNCTION.
darcs-hash:407ea76ee108cb03e819c6d5027b828a1232e24b
Diffstat (limited to 'Lisp/tests.lisp')
| -rw-r--r-- | Lisp/tests.lisp | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 6783855..57da341 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -423,11 +423,13 @@ (is (not (foreign-class-registered-p class))) ;; Method definition. - (is (eval `(defgeneric |foo:bar:stuff:do:| (a b c d e &rest f) + #.(enable-method-syntax) + (is (eval `(define-objective-c-generic-function #/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 + (is (eval `(define-objective-c-method #/foo:bar:stuff:do: :int ((x ,class-name) (y :int) z @@ -436,6 +438,7 @@ &rest rest) (declare (ignore z rest)) (+ y 20)))) + #.(disable-method-syntax) ;; Sanity checks. (is (typep class 'objective-c-class)) |