Plaster

(defun foo () (let (l c i) (do-all-symbols (s) (when (and (setf c (ignore-errors (find-class s))) (setf i (ignore-errors (make-instance c))) (typep i 'condition)) (push s l))) (signal (nth (random (length l)) l))))