From 1deb19a20e934084cda4499e6930e35b0d2777c3 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 24 Mar 2008 13:26:39 +0100
Subject: Wrap Lisp values when trying to send them messages.

darcs-hash:c7cffd49bb312b7a6d88e3a5d29f3f5446827120
---
 Lisp/libobjcl.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Lisp/libobjcl.lisp')

diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index d633480..939f3b3 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -722,7 +722,8 @@ separating parts by hyphens works nicely in all of the `:INVERT`,
 (defun pointer (thing)
   (etypecase thing
     (c-pointer thing)
-    ((or c-pointer-wrapper exception) (pointer-to thing))))
+    ((or c-pointer-wrapper exception) (pointer-to thing))
+    (t (pointer-to (coerce-object thing :id)))))
 
 (defun object-is-class-p (obj)
   (%objcl-object-is-class (pointer obj)))
-- 
cgit v1.2.3