$ cat >> x.scm
(use clojurian-syntax)

(if-let* ((a #t) (b #t)) (values 1 1) (values 2 2))

$ csc x.scm 

Warning: at toplevel:
  expected in argument #1 of procedure call `(list (values 1 1))' a single result, but were given 2 results

Warning: at toplevel:
  expected in argument #1 of procedure call `(list (values 2 2))' a single result, but were given 2 results