condition 一覧 - 日々ごちゃごちゃと考える(compile (defun find-all-condition-and-slot-accessors () (do-all-symbols (sym) (let ((it (ignore-errors (make-condition sym)))) (when it (let ((def (si:*structure-definition it))) (format t "- ~S~%" (si:*structure-definition-name def)) (dotimes (n (si:*structure-definition-nslots def)) (format t "-- ~S~%" (si:*structure-definition-slot-description def n))))))))) => find-all-condition-and-slot-acce
