hưs8p,LAMBDAF2Dp,lFASD-DATADwkfLoveF~FiDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGE,NEW-MATHpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DDEFMACROÁFLOAT-ERROR-PDÀSTATUSDplSIlXR-BQ-LISTDB;p,HARDWAREl32LOGBITPDBEDB;pBFl32LOGICAL-SHIFT-UPFBADpBF,UNBOXED-CONSTANTD ÀLOGIORDASHFDC1+pBF$$FPU-EXACT-INFINITYDBRFDBTpBF$$FPU-OVERFLOW-INEXACTDBRFDBTpBF$$FPU-X-DENORMALIZEDDBRFDBTpBF$$FPU-Y-DENORMALIZEDDBRFDBTpBF$$FPU-XY-DENORMALIZEDDBRFDBTpBFl$$FPU-ZERO-DIVIDEDBRFDBTpBF$$FPU-X-NANDBRFDBTpBF$$FPU-Y-NANDBRFDBTpBF$$FPU-XY-NANDBRFDBTpBF,$$FPU-INVALID-OPERATION1DB?CFPU-STATUSNILDB;DpBFFIELD-EXTRACTDpBFREAD-PROCESSOR-STATUSpBF,%%PROCESSOR-STATUS-FLOATING-POINT-STATUS1DDEFCONSTANTÂ%%DPB-SHORT-IN-SINGLEDBYTEFF1DBÂ%%DPB-SHORT-ROUND-BITDBFF1DBHIGH-SIZE-CONSTF1DBDOUBLE-FLOAT-MANTISSA-SIZE-CONSTF41DBMANT-SIZE-CONSTF5