Use INTERN-LISP-VALUE for argument conversion.

darcs-hash:2f57dd53bfa6b2aa44474232042d9578af720c22

1 files changed, 14 insertions, 0 deletions

diff --git a/Lisp/lisp-value-wrapping.lisp b/Lisp/lisp-value-wrapping.lisp
index 8eda55c..85cf84a 100644
--- a/Lisp/lisp-value-wrapping.lisp
+++ b/Lisp/lisp-value-wrapping.lisp
@@ -39,6 +39,20 @@
   (:metaclass ns::+ns-object))
 
 
+(defcoercion id ((x list))
+  (intern-lisp-value x))
+
+(defcoercion id ((x string))
+  ;; FIXME: Implement INTERN-LISP-VALUE.
+  (primitive-invoke (find-objc-class 'ns-string)
+                    "stringWithUTF8String:"
+                    'id
+                    x))
+
+(defcoercion id ((x t))
+  (intern-lisp-value x))
+
+
 (defun intern-lisp-value (value)
   ;; We need this function in order to preserve object identity on the
   ;; Objective-C side.  As we want [(intern-lisp-value 10) self] to