Did you know ... | Search Documentation: |
Pack wam_common_lisp -- prolog/wam_cl/src/doc/notes.txt |
:inline-unsafe '((t fixnum) fixnum nil nil "(#0)->ust.ust_self[#1]") :inline-unsafe '((t fixnum) character nil nil "(#0)->ust.ust_self[#1]") so that (setq n (char-int (schar string index))) is optimized to: V1= ((V2))->ust.ust_self[fix((V3))];
c(2 3)
which is dealt as:
case R_REFHALF: *(unsigned short *)where += new_value; break;
error()
which used to get into loop.builtin_saveregs()
in Fdo and FdoA
to fix problem with form (do () (()) (return)) on sparc:
ecl_raw ../o/ (print 3) (do () (()) (return)) SIGSEGVsetupPRINT(x, strm)
;
setupPRINTcircle(x)
;
write_object(x, 0)
;builtin_savereg()
to get data
out of registers, specially on RISC machines.