On Sun, Jan 4, 2009 at 4:20 AM, Christophe Rhodes <csr21@...> wrote:
> "Nathan Froyd" <froydnj@...> writes:
>> Could you please use TRUNCATE instead, so we avoid passing rationals
>> to SYSTEM-AREA-UB8-COPY? Brownie points if you make :EXTRACT-GEN use
>> TRUNCATE, too.
> Hrm. Wouldn't the case where a rational were produced from that
> division be indicative of an error somewhere else? Maybe
> (let ((byte-offset (/ offset n-byte-bits)))
> (declare (integer byte-offset))
> (system-area-ub8-copy ...))
> would be better?
It would indicate an error, yes. I dunno, perhaps there's a check
someplace further up the alien definition stack, so we can blithely
assume OFFSET is byte-aligned. I suppose something somewhere will
yell currently and in any event, nobody's complained yet. Maybe just
leave well enough alone.