From aa8645cdf28eb7b13d2813f5f0fe014df4d7b4b8 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 24 Mar 2008 13:28:45 +0100
Subject: When receiving a Lisp value wrapper from Objective-C, unwrap it
 automatically.

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

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

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