diff options
| -rw-r--r-- | Lisp/lisp-value-wrapping.lisp | 37 | ||||
| -rw-r--r-- | objective-cl.asd | 4 |
2 files changed, 41 insertions, 0 deletions
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" |