Add test for ccl's compiler let

               (leave 2))))

  2)

#+ccl

(deftest ccl-compiler-let

    (catch 'compiler-warned

      (handler-bind 

          ((ccl:compiler-warning #'(lambda (e)

                                 (declare (ignore e))

                                 (throw 'compiler-warned nil))))

        (let ((def (compile nil '(lambda (list-xs)

                                  (iter (for x in list-xs) (assert x () "~s is not a foo." x))))))

          (when def t))))

  t)

;;; eof