From 1b2b509cd214ce604ce6ac58ef38ac6b5aec81e1 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 5 Mar 2008 01:29:07 +0100
Subject: Collect selectors in package OBJECTIVE-C-SELECTORS.

darcs-hash:f8184992f82c34b07e6a89745593b8daec17fc61
---
 Lisp/data-types.lisp | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'Lisp/data-types.lisp')

diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp
index 2c309e7..18f2611 100644
--- a/Lisp/data-types.lisp
+++ b/Lisp/data-types.lisp
@@ -130,6 +130,17 @@ The following calls are all equivalent:
        (apply #'invoke-by-name receiver selector args))))
 
 
+(defmethod initialize-instance :after ((selector selector)
+                                       &rest initargs
+                                       &key
+                                       &allow-other-keys)
+  (declare (ignore initargs))
+  ;; Register the selector.
+  (let ((symbol (intern (selector-name selector) '#:objective-c-selectors)))
+    (setf (fdefinition symbol) selector)
+    (export symbol '#:objective-c-selectors)))
+
+
 (defmethod make-load-form ((selector selector) &optional environment)
   (declare (ignore environment))
   `(intern-pointer-wrapper 'selector
-- 
cgit v1.2.3