From: akr <akr>
Date: Sat, 17 Oct 1998 08:48:31 +0000 (+0000)
Subject: broken.el (check-broken-facility): New macro.
X-Git-Tag: apel-9_4~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c1e65a20fd9bbd930cebb03b00f70056e39cbbe4;p=elisp%2Fapel.git

broken.el (check-broken-facility): New macro.
---

diff --git a/ChangeLog b/ChangeLog
index 897f4ae..a61639d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1998-10-17  Tanaka Akira  <morioka@jaist.ac.jp>
+
+	* broken.el (check-broken-facility): New macro.
+
 1998-10-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* 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
 ;;;