goto, not much worse than break/continue

Discuss.

[m][code]
CL-USER> (defparameter mat '((0 0 3 3)
                 (0 2 3 0)
                 (0 0 0 0)
                 (0 0 3 8)))
MAT
CL-USER> (position t (mapcar (lambda (row) (every (lambda (item) (= item 0)) row)) mat))
2
[/m][/code]