Chialisp assert macro for debugging by @prozacchiwawa

debug_assert.cl

(mod (N)
  (include *standard-cl-23*)

  (defun assert_ (items)
    (if (r items)
      (qq (if (unquote (f items)) (unquote (assert_ (r items))) (x (unquote (c 1 (f items))))))
      (f items)
      )
    )

  (defmac assert items (assert_ items))

  (assert (> 50 N) (> N 20) (logand N 1) N)
)

It will show you exactly which condition in assert fails, super useful.