From 63a0b732f2f8f7acc054ab4a9d2eb3fa121b1a95 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 15 Sep 2007 14:03:01 +0200
Subject: Fix a bug in number-to-pointer conversion.

darcs-hash:af52a941ca311d4e711c84568b6dd8264737626e
---
 Lisp/method-invocation.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))
-- 
cgit v1.2.3