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
signature.asc
Description: This is a digitally signed message part.
_______________________________________________ cffi-devel mailing list cffi-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
