[cffi-devel] CLISP (pointer-address nil) error

Hi

CLISP returns NIL as null pointer but: (cffi:pointer-address nil) gives an error. Thanks for fixing this. (see the patch below)

diff -rN -u old-cffi/src/cffi-clisp.lisp new-cffi/src/cffi-clisp.lisp --- old-cffi/src/cffi-clisp.lisp 2009-06-11 21:43:09.816010652 +0200 +++ new-cffi/src/cffi-clisp.lisp 2009-06-11 21:43:09.860018215 +0200 @@ -140,7 +140,9 @@

(defun pointer-address (ptr) "Return the address pointed to by PTR." - (ffi:foreign-address-unsigned ptr)) + (if ptr + (ffi:foreign-address-unsigned ptr) + 0))

;;;# Foreign Memory Allocation