From 2e26057818b48da27a5355e2d2101cb8605b840f Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 3 Mar 2008 17:30:46 +0100
Subject: Implement ADD-METHOD :AFTER (OBJECTIVE-C-GENERIC-FUNCTION
 OBJECTIVE-C-METHOD).

darcs-hash:16207045b44287e0f3f332937d826d1cc6c44296
---
 Lisp/method-invocation.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Lisp/method-invocation.lisp')

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))))
-- 
cgit v1.2.3