- 'simple-warning 'warn)))
- (/show0 "back from COERCE-TO-CONDITION, doing ENFORCE-TYPE")
- (enforce-type condition warning)
- (/show0 "back from ENFORCE-TYPE, doing RESTART-CASE MUFFLE-WARNING")
- (restart-case (signal condition)
- (muffle-warning ()
- :report "Skip warning."
- (return-from warn nil)))
- (/show0 "back from RESTART-CASE MUFFLE-WARNING (i.e. normal return)")
+ 'simple-warning 'warn)))
+ (/show0 "back from COERCE-TO-CONDITION, doing ENFORCE-TYPE")
+ (enforce-type condition warning)
+ (/show0 "back from ENFORCE-TYPE, doing RESTART-CASE MUFFLE-WARNING")
+ (restart-case (signal condition)
+ (muffle-warning ()
+ :report "Skip warning."
+ (return-from warn nil)))
+ (/show0 "back from RESTART-CASE MUFFLE-WARNING (i.e. normal return)")