Plaster

* (khazern-extrinsic:loop for i of-type (unsigned-byte 8) from 0 to 255) ; in: KHAZERN-EXTRINSIC:LOOP FOR ; (I #:G721) ; ; caught STYLE-WARNING: ; The variable I is assigned but never read. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition NIL * (macroexpand-1 '(khazern-extrinsic:loop for i of-type (unsigned-byte 8) from 0 to 255)) (BLOCK NIL (LET ((#:G732 NIL)) (LET ((#:G728 0) (#:G729 255) (#:G730 1)) (LET ((#:G731 #:G728) (I #:G728)) (DECLARE (TYPE (UNSIGNED-BYTE 8) I)) (TAGBODY (UNLESS (<= #:G731 #:G729) (GO KHAZERN-EXTRINSIC::END-LOOP)) (INCF #:G731 #:G730) #:G734 (UNLESS (<= #:G731 #:G729) (GO KHAZERN-EXTRINSIC::END-LOOP)) (SETQ I #:G731) (INCF #:G731 #:G730) (GO #:G734) KHAZERN-EXTRINSIC::END-LOOP (RETURN-FROM NIL #:G732)))))) T *