diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-24 13:28:45 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-24 13:28:45 +0100 |
| commit | aa8645cdf28eb7b13d2813f5f0fe014df4d7b4b8 (patch) | |
| tree | 7ea1e014c0af0501938d0a377071460016078e19 /Lisp/data-types.lisp | |
| parent | 1deb19a20e934084cda4499e6930e35b0d2777c3 (diff) | |
When receiving a Lisp value wrapper from Objective-C, unwrap it automatically.
darcs-hash:f1b183f46c4d97c27121e0ada8614b9e9feb9955
Diffstat (limited to 'Lisp/data-types.lisp')
| -rw-r--r-- | Lisp/data-types.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index d4e169e..2ab3fe4 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -582,6 +582,12 @@ seems like an acceptable trade-off. (trivial-garbage:finalize new-wrapper #'finaliser)))))) +(defclass lisp-value-wrapper-mixin () + ((lisp-value :initarg :value + :initform nil + :accessor lisp-value))) + + (defgeneric objcl-eql (obj1 obj2)) (with-compilation-unit () |