diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-15 14:03:01 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-15 14:03:01 +0200 |
| commit | 63a0b732f2f8f7acc054ab4a9d2eb3fa121b1a95 (patch) | |
| tree | de2ab9eeb1d817ed5211268787b7dfaf7f4db279 | |
| parent | ee655320c5060ec9283a598170756570e03a2543 (diff) | |
Fix a bug in number-to-pointer conversion.
darcs-hash:af52a941ca311d4e711c84568b6dd8264737626e
| -rw-r--r-- | Lisp/method-invocation.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index 5da06b8..9d5eada 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -338,4 +338,4 @@ Returns: *result* --- the return value of the method invocation. (pointer-to x)) (defcoercion pointer ((x number)) - (pointer-to (->id x))) + (pointer-to (coerce-object x 'id))) |