File psl-1983/3-1/tests/mini-type-conversions.red artifact e9e4ac7195 part of check-in d9e362f11e


% MINI-TYPE-CONVERSIONS.RED

on syslisp;

syslsp procedure Sys2Int N;		%. Convert word to Lisp number
    if SignedField(N, InfStartingBit - 1, InfBitLength + 1) eq N then N
    else Sys2FIXN N;

syslsp procedure SYS2FIXN N;
 STDerror LIST(N, "too big for mini arith");

off syslisp;

End;


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]