diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-24 13:26:39 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-24 13:26:39 +0100 |
| commit | 1deb19a20e934084cda4499e6930e35b0d2777c3 (patch) | |
| tree | 830105f0b5d7eea5b92c62c3cde761325f6d6353 /Lisp/libobjcl.lisp | |
| parent | 3b01c27ac549612eaa317ea24af825b2a38d39c1 (diff) | |
Wrap Lisp values when trying to send them messages.
darcs-hash:c7cffd49bb312b7a6d88e3a5d29f3f5446827120
Diffstat (limited to 'Lisp/libobjcl.lisp')
| -rw-r--r-- | Lisp/libobjcl.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
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))) |