On Mon, Apr 26, 2010 at 1:11 AM, Luís Oliveira <luismbo@gmail.com> wrote:
On Sun, Apr 25, 2010 at 6:43 PM, Juan Jose Garcia-Ripoll> ... provided in this patch.
<juanjose.garciaripoll@googlemail.com> wrote:
I have a few questions about this patch.
(defun pointer-eq (ptr1 ptr2)
"Return true if PTR1 and PTR2 point to the same address."
- (= (ffi:pointer-address ptr1) (ffi:pointer-address ptr2)))
+ ;; In ECL two pointers are EQUAL if they point to the same address.
+ (equal ptr1 ptr2))
One advantage of the previous definition is that passing non-pointers
to POINTER-EQ would (I assume) signal an error. What do you think?
+(define-compiler-macro null-pointer ()
+ '(si::allocate-foreign-data :void 0))
Any reason why a simpler (declaim (inline null-pointer)) wouldn't work
just as well?