&optional (label nil) (indent 0)
(english-only-function nil)
(subobjects nil) (refvars nil))
&optional (label nil) (indent 0)
(english-only-function nil)
(subobjects nil) (refvars nil))
(awhen (hyperobject-class-subobjects obj) ;; access list of functions
(dolist (child-obj it) ;; for each child function
(awhen (funcall (reader child-obj) obj) ;; access set of child objects
(awhen (hyperobject-class-subobjects obj) ;; access list of functions
(dolist (child-obj it) ;; for each child function
(awhen (funcall (reader child-obj) obj) ;; access set of child objects