(let ((l (list (list 1 2 3 4) (list 5 6 7))))
     (block a
       (loop for i in l do
	     (loop for j in i do
		   (when (= j 3)
		       (format t "found value, yeah!")
		       (return-from a))))))