use LOOP iteration variables directly instead of LET

        for readp = (logbitp 2 i)

        for signedp = (logbitp 1 i)

        for big-endian-p = (logbitp 0 i)

        collect (let* ((name (stream-ref-fun-name bitsize readp signedp big-endian-p))

                       (n-bytes (truncate bitsize 8))

                       (byte-fun (if readp

	for name = (stream-ref-fun-name bitsize readp signedp big-endian-p)

	for n-bytes = (truncate bitsize 8)

	for byte-fun = (if readp

			   (byte-ref-fun-name bitsize signedp big-endian-p)

                                     (byte-set-fun-name bitsize signedp big-endian-p)))

                       (arglist (if readp

                                    '(stream)

                                    '(integer stream)))

                       (subfun (if readp

                                   'read-byte*

                                   'write-byte*)))

                  `(defun ,name ,arglist

                     (,subfun ,@arglist ,n-bytes #',byte-fun))) into forms

			   (byte-set-fun-name bitsize signedp big-endian-p))

	for arglist = (if readp '(stream) '(integer stream))

	for subfun = (if readp 'read-byte* 'write-byte*)

        collect `(defun ,name ,arglist

		   (,subfun ,@arglist ,n-bytes #',byte-fun)) into forms

        finally (return `(progn ,@forms)))