(compute-standard-slot-locations)
(dolist (s '(condition structure-object))
(dohash (k v (classoid-subclasses (find-classoid s)))
(compute-standard-slot-locations)
(dolist (s '(condition structure-object))
(dohash (k v (classoid-subclasses (find-classoid s)))