ASSERT-TRUE is broken.

[heegaiximephoomeeghahyaiseekh]

(define-test check-hex-string
   (let ((hex-string "ABC123"))
      (assert-true
         (loop for ch across hex-string
             always  (member ch (coerce "0123456789ABCDEF" 'list))))))

Results in a compile error on the undefined variables FOR, CH, ACROSS, and ALWAYS.

Replacing this with an assert-eq, where one of the two values is t, solves the problem. Perhaps
the definition of assert-true should simply be something like:

 (defmacro assert-true (expr)
     `(assert-eq (and ,expr t) t))

[liamh]

Thanks for posting this. I had a similar problem if I had a LET in my test, and not in the others. In my case, the LET was inside the assert-true form. I would get ERROR: illegal function call on the forms defined in the let.

I was able to work around the problem by using assert-equal and give the expected non-NIL result. I don't agree with your suggested macro definition, as assert-true says that the result is non-NIL, not that it's T.