Fail trans for let form

[conao3]

Hi!
This package is very useful!

I found cl-libify fail its trans for let form so I report that.

(let ((items '(elpa melpa celpa)))
  (let ((first  (nth 0 items))
        (second (nth 1 items))
        (third  (nth 2 items)))
    (list first second third)))
;;=> (elpa melpa celpa)

;; mark and `M-x cl-libify'
(let ((items '(elpa melpa celpa)))
  (let ((cl-first  (nth 0 items))
        (cl-second (nth 1 items))
        (cl-third  (nth 2 items)))
    (list first second third)))
;;=> Debugger entered--Lisp error: (void-variable first)
;;     (list first second third)
;;     (let ((cl-first (nth 0 items)) (cl-second (nth 1 items)) (cl-third (nth 2 items))) (list first second third))
;;     (let ((items (quote (elpa melpa celpa)))) (let ((cl-first (nth 0 items)) (cl-second (nth 1 items)) (cl-third (nth 2 items))) (list first second third)))
;;     eval((let ((items (quote (elpa melpa celpa)))) (let ((cl-first (nth 0 items)) (cl-second (nth 1 items)) (cl-third (nth 2 items))) (list first second third))) nil)
;;     scratch-comment--elisp--eval-last-sexp(t)
;;     scratch-comment--eval-last-sexp(t)
;;     scratch-comment-eval-sexp()
;;     funcall-interactively(scratch-comment-eval-sexp)
;;     call-interactively(scratch-comment-eval-sexp nil nil)
;;     command-execute(scratch-comment-eval-sexp)

[purcell]

Yes, it's not very smart.