From: Nikodemus S. <nik...@ra...> - 2011-12-01 16:17:47
|
Here's a "portable" version of the test-case: (funcall (compile nil `(lambda (a) (declare (type (member 1d0 2d0) a)) (block return-value-tag (funcall (the function (catch 'debug-catch-tag (return-from return-value-tag (progn (truncate a))))))))) 2d0) The bug's in the TRUNCATE transform when it sees *WILD-TYPE* as the result type. Cheers, -- nikodemus |