a reason to its sub-objects that is different from the REASON with which
it was itself invoked.")
- (:method-combination progn)
- (:method progn (object reason sequencer)
- (declare (ignore object reason sequencer))))
+ (:method (object reason sequencer)
+ (declare (ignore object reason sequencer))))
;;;--------------------------------------------------------------------------
;;; Useful syntax.