- `(if-broken ,facility
- (unless (broken-p ',facility)
- (message "COMPILE TIME ONLY BROKEN FACILITY DETECTED: %s"
- (broken-facility-description ',facility)))
- (when (broken-p ',facility)
- (message "RUN TIME ONLY BROKEN FACILITY DETECTED: %s"
- (broken-facility-description ',facility)))))
+ (` (if-broken (, facility)
+ (unless (broken-p '(, facility))
+ (message "COMPILE TIME ONLY BROKEN FACILITY DETECTED: %s"
+ (or
+ '(, (broken-facility-description facility))
+ (broken-facility-description '(, facility)))))
+ (when (broken-p '(, facility))
+ (message "RUN TIME ONLY BROKEN FACILITY DETECTED: %s"
+ (or
+ (broken-facility-description '(, facility))
+ '(, (broken-facility-description facility))))))))