[Openmcl-devel] Today's WTF moment

[Ron Garret]

? (funcall (lambda () (%int-to-ptr -1)))
#<A Foreign Pointer #xFFFFFFFFFFFFFFFF>

? (let ((x -1)) (%int-to-ptr x))
#<A Foreign Pointer #xFFFFFFFFFFFFFFFF>

But...

? (%int-to-ptr -1)
> Error: The value -1 is not of the expected type (UNSIGNED-BYTE 64).

? (loop for x in '(-1) collect (%int-to-ptr x))
> Error: The value -1 is not of the expected type (UNSIGNED-BYTE 64).

? (loop for x in '(-1) collect (let ((y x)) (%int-to-ptr y)))
> Error: The value -1 is not of the expected type (UNSIGNED-BYTE 64).

? (loop for x in '(-1) collect (funcall (lambda () (%int-to-ptr x))))
> Error: The value -1 is not of the expected type (UNSIGNED-BYTE 64).

? (defun foo (x) (%int-to-ptr x))
FOO
? (foo -1)
> Error: The value -1 is not of the expected type (UNSIGNED-BYTE 64).