X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbyte-interp.lisp;h=0aa921294e3936a27ae8e9ffa1bf7f7cd79dc726;hb=b1de52969f584c63d43fb35da4a8a6a4e0e619f0;hp=67f7fac15aaad76ab067514ebf5ed837f9a2109a;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git diff --git a/src/code/byte-interp.lisp b/src/code/byte-interp.lisp index 67f7fac..0aa9212 100644 --- a/src/code/byte-interp.lisp +++ b/src/code/byte-interp.lisp @@ -277,7 +277,7 @@ ;;; FIXME: This doesn't seem to be needed in the target Lisp, only ;;; at build-the-system time. ;;; -;;; KLUDGE: This expands into code a la +;;; KLUDGE: This expands into code like ;;; (IF (ZEROP (LOGAND BYTE 16)) ;;; (IF (ZEROP (LOGAND BYTE 8)) ;;; (IF (ZEROP (LOGAND BYTE 4))