#2 wrong result of unsignedinteger-+

[Anonymous]

wrong result of unsignedinteger-+

an expression like (+ 0x0 1 2) gives a wrong result because the function unsignedinteger-+ does not add or subtract correctly.

workaround: replace by an interpreted version.

add in you init.lsp the following function:

(defun unsignedinteger-+ fexpr(x)
(apply '-(cons this(mapcar '(lambda(z)(minus(integer z))) x))))

which is correct up to 2^63