summaryrefslogtreecommitdiff
path: root/Lisp/method-invocation.lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-03 17:30:46 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-03 17:30:46 +0100
commit2e26057818b48da27a5355e2d2101cb8605b840f (patch)
treecfa916870cdc83e35a12dcabc4ae62c86b63fa2b /Lisp/method-invocation.lisp
parent68041467b00a878bd7325bf2f385bd58de7a2a20 (diff)
Implement ADD-METHOD :AFTER (OBJECTIVE-C-GENERIC-FUNCTION OBJECTIVE-C-METHOD).
darcs-hash:16207045b44287e0f3f332937d826d1cc6c44296
Diffstat (limited to 'Lisp/method-invocation.lisp')
-rw-r--r--Lisp/method-invocation.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp
index 03e2ab7..bbbee68 100644
--- a/Lisp/method-invocation.lisp
+++ b/Lisp/method-invocation.lisp
@@ -313,7 +313,7 @@ easier to use with __apply__.
(defun typespec->c-type (typespec)
(case (typespec-primary-type typespec)
((:pointer pointer struct union id objective-c-class exception array
- selector)
+ selector :id :class :exception :selector)
:pointer)
((:string) :string)
(otherwise (typespec-primary-type typespec))))