LISP I Programmer's Manual - Software Preservation Group

eturn[^]intv[x] : machine language; special functionThe function intv finds the address of the value of theinteger on the association list of xaf lval [x] : machine languageThe function flval finds the address of the floatingpointnumber on the association list xd The value of flvalis the address of the floating-point number,The program for flval istsf lo t [XIflval[x] E pr~g[[]; ' 1 1not[atom[x] ] return[error]B1 null[cdr[x] ]-+ return[error]x = cdr[x]car[x] f FLO -+ go[B1]return[cadr[x]]: machine languageThe proposition tsflot is true if the association list forx contains FLO pointing to a floating-point number, Otherwisethe proposition is false,The program for tsflot istsflotB1prog[ [I;not[atom[x] I -+ return[F]-+ null[x]car[x] = FLO*return[~lx = cdr[x]goC~11