diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-10-10 14:02:36 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-10-10 14:02:36 +0200 |
| commit | 5b0be258009220af661ba877b17c3ebf33972409 (patch) | |
| tree | f4c0d6c3744473d009d258927d5484edb1a99328 /Lisp/tests.lisp | |
| parent | f71611e1995b2645a183a52e221fccfcca64d2e0 (diff) | |
FIND-SELECTOR: Make ERRORP default to T.
darcs-hash:629ac814cc7f7427b1b1cbe71448a670c37c0171
Diffstat (limited to 'Lisp/tests.lisp')
| -rw-r--r-- | Lisp/tests.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 69bfe4d..beff6f9 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -55,7 +55,7 @@ ((ensure-null (find-objc-class 'nsobject))) ((ensure-same (find-objc-class 'ns-method-invocation) (find-objc-class "NSMethodInvocation"))) - ((ensure (typep (find-selector "mulkyStuff:withMagic:") + ((ensure (typep (find-selector "mulkyStuff:withMagic:" nil) '(or null selector)))) ((ensure-same (find-selector "self") (find-selector '(self)))) |