From 6fa02273690d38831f955ac5df0a2643f37230ba Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 2 Mar 2008 21:07:15 +0100
Subject: Introduce an Objective-C class for wrapping Lisp values.

darcs-hash:47920ab6598799fca44c964c3fa6a3dfb20389c9
---
 Lisp/lisp-value-wrapping.lisp | 37 +++++++++++++++++++++++++++++++++++++
 objective-cl.asd              |  4 ++++
 2 files changed, 41 insertions(+)
 create mode 100644 Lisp/lisp-value-wrapping.lisp

diff --git a/Lisp/lisp-value-wrapping.lisp b/Lisp/lisp-value-wrapping.lisp
new file mode 100644
index 0000000..cf8e63c
--- /dev/null
+++ b/Lisp/lisp-value-wrapping.lisp
@@ -0,0 +1,37 @@
+;;;; Objective-CL, an Objective-C bridge for Common Lisp.
+;;;; Copyright (C) 2007, 2008  Matthias Andreas Benkard.
+;;;;
+;;;; This program is free software: you can redistribute it and/or
+;;;; modify it under the terms of the GNU Lesser General Public License
+;;;; as published by the Free Software Foundation, either version 3 of
+;;;; the License, or (at your option) any later version.
+;;;;
+;;;; This program is distributed in the hope that it will be useful, but
+;;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;;; Lesser General Public License for more details.
+;;;;
+;;;; You should have received a copy of the GNU Lesser General Public
+;;;; License along with this program.  If not, see
+;;;; <http://www.gnu.org/licenses/>.
+
+(in-package #:mulk.objective-cl)
+
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (find-objc-class "NSObject" t))
+
+
+(defclass ns::mlk-lisp-value (ns::ns-object)
+     ((lisp-value :initarg :value
+                  :initform nil
+                  :accessor lisp-value))
+  (:metaclass ns::+ns-object))
+
+
+(defun make-lisp-value (value)
+  ;; FIXME: The following won't work.  Make MAKE-INSTANCE more useful...
+  ;(make-instance 'ns::mlk-lisp-value :value value)
+  (let ((instance (invoke (find-class 'ns::mlk-lisp-value) 'new)))
+    (setf (lisp-value instance) value)
+    instance))
diff --git a/objective-cl.asd b/objective-cl.asd
index 0f9dc2f..efe3c91 100644
--- a/objective-cl.asd
+++ b/objective-cl.asd
@@ -93,6 +93,10 @@
                  (:file "compiler-macros"    :depends-on ("defpackage"
                                                           "method-invocation"
                                                           "conditions"))
+                 (:file "lisp-value-wrapping" :depends-on ("defpackage"
+                                                           "libobjcl"
+                                                           "init"
+                                                           "class-definition"))
                  (:file "post-init"          :depends-on ("defpackage"
                                                           "libobjcl"
                                                           "init"
-- 
cgit v1.2.3