diff options
| -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))) |