For example: from

  (defun pointer-eq (ptr1 ptr2)
    "Return true if PTR1 and PTR2 point to the same address."
    (sb-sys:sap= ptr1 ptr2))

to

  (declaim (inline pointer-eq))
  (defun pointer-eq (ptr1 ptr2)
    "Return true if PTR1 and PTR2 point to the same address."
    (declare (type system-area-pointer ptr1 ptr2))
    (sb-sys:sap= ptr1 ptr2))

This is need? Do it?
And for other files?

Thanks!

--
WBR, Yaroslav Kavenchuk.
_______________________________________________
cffi-devel mailing list
cffi-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel

Reply via email to