diff options
Diffstat (limited to 'Lisp')
| -rw-r--r-- | Lisp/data-types.lisp | 11 | ||||
| -rw-r--r-- | Lisp/defpackage.lisp | 5 | ||||
| -rw-r--r-- | Lisp/reader-syntax.lisp | 24 |
3 files changed, 29 insertions, 11 deletions
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 diff --git a/Lisp/defpackage.lisp b/Lisp/defpackage.lisp index 59aa041..3cacf12 100644 --- a/Lisp/defpackage.lisp +++ b/Lisp/defpackage.lisp @@ -32,6 +32,7 @@ #:invoke #:find-objc-class #:find-selector + #:intern-selector #:objc-class-name #:selector-name #:selector @@ -96,4 +97,8 @@ (:use)) +(defpackage #:objective-c-selectors + (:nicknames #:objc-selectors #:objc-sels #:objcs) + (:use)) + #-(or cmu sbcl) (declaim (declaration values)) diff --git a/Lisp/reader-syntax.lisp b/Lisp/reader-syntax.lisp index 7a79fb0..9f0bcb7 100644 --- a/Lisp/reader-syntax.lisp +++ b/Lisp/reader-syntax.lisp @@ -46,12 +46,10 @@ alongside Lisp code by placing the method name in front. At the same time, it is a more conservative syntax enhancement than that provided by __enable-objective-c-syntax__. -The reader macro transforms any sequence of alphanumeric characters and -characters that are __eql__ to one of #\:, #\- and #\_ into a symbol -with that sequence as the **symbol name** and _objective-c-methods__ as -the **symbol package**. It also takes care to make a __selector__ -available as the __fdefinition__ of that symbol unless the symbol is -already **fbound**. +The **reader macro** transforms any **string** of alphanumeric +characters and **character**s that are __eql__ to one of #\:, #\- and +#\_ into a **symbol** with that **string** as the **symbol name** and +_objective-c-selectors__ as the **symbol package**. ## Examples: @@ -73,10 +71,14 @@ already **fbound**. ## Note: -Absent manual changes by the user, the __fdefinition__ of any symbol -read by this reader macro may point to either a __selector__ or an -__objective-c-generic-function__, depending on whether a corresponding -__defgeneric__ form has been executed. +Absent manual changes by the user, the __fdefinition__ of any **fbound** +**symbol** read by this **reader macro** will be a __selector__. + +Method __selector__s have to be interned prior to use. As this reader +macro is not capable of interning new __selector__s, you have to ensure +that __intern-selector__ is called before the respective __selector__ is +used. This is not a problem for __selector__s known at load-time nor for +__selector__s registered by way of __collect-selectors__. ## See also: @@ -109,7 +111,7 @@ __defgeneric__ form has been executed. finally (progn (when char (unread-char char stream)) (let ((symbol (intern (format nil "~{~A~}" constituents) - '#:objective-c-methods))) + '#:objective-c-selectors))) (return symbol))))) |