From c1e65a20fd9bbd930cebb03b00f70056e39cbbe4 Mon Sep 17 00:00:00 2001 From: akr Date: Sat, 17 Oct 1998 08:48:31 +0000 Subject: [PATCH] broken.el (check-broken-facility): New macro. --- ChangeLog | 4 ++++ broken.el | 11 +++++++++++ 2 files changed, 15 insertions(+) diff --git a/ChangeLog b/ChangeLog index 897f4ae..a61639d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +1998-10-17 Tanaka Akira + + * broken.el (check-broken-facility): New macro. + 1998-10-16 MORIOKA Tomohiko * poe.el (define-obsolete-function-alias): New function. diff --git a/broken.el b/broken.el index 553f6bd..af91df2 100644 --- a/broken.el +++ b/broken.el @@ -80,6 +80,17 @@ If ASSERTION is not ommited and evaluated to nil and NO-NOTICE is nil, it is not (unless (broken-p facility) `(progn . ,body))) +(defmacro check-broken-facility (facility) + "Check FACILITY is broken or not. If the status is different on +compile(macro expansion) time and run time, warn it." + `(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))))) + ;;; @ end ;;; -- 1.7.10.4