Plaster
New
List
Login
common-lisp
default
anonymous
2021.02.05 12:13:56
(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))))
Raw
Annotate
Repaste
Edit