;; crashed previously (def (f a (b NIL b-sup) (c NIL) . rest)  (def (g x)    (+ a x (or (and b-sup b) 0)))  (let* {[y (car rest)]         [x (or y c)]}    (g x))) (assert (= (f 0 0 0) 0))(princ "b-supplied: ok") (newline) (for 1 10 (λ (i) 0))(princ "loop: ok") (newline) (assert-fail (map - '(5) '("hi")))(assert-fail (map + '(5) '("hi")))(assert-fail (map / '(5) '("hi")))(assert-fail (map * '(5) '("hi")))(assert-fail (map bound? '(5) '("hi")))(princ "failing map: ok") (newline)