(:method-combination progn)
(:method progn (object reason sequencer)
- (declare (ignore object reason sequencer))))
+ (declare (ignore object reason sequencer))))
;;;--------------------------------------------------------------------------
;;; Useful syntax.