;ELC   
;;; Compiled by root@loma.devel.redhat.com on Sun Feb 15 09:53:22 2004
;;; from file /usr/src/build/351973-noarch/BUILD/apel-10.6/broken.el
;;; in Emacs version 21.3.1
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`broken.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require static poe] 2)
#@101 If the value is t, non-obvious broken facility is noticed when
`broken-facility' macro is expanded.
(defvar notice-non-obvious-broken-facility t (#$ . 695))
#@64 Declare that FACILITY emulation is broken if ASSERTION is nil.
(defalias 'broken-facility-internal #[(facility &optional docstring assertion) "\203\n \303	\304#\210\303	\305\n?#\207" [docstring facility assertion put broken-docstring broken] 4 (#$ . 858)])
#@36 t if FACILITY emulation is broken.
(defalias 'broken-p #[(facility) "\301N\207" [facility broken] 2 (#$ . 1123)])
#@34 Return description for FACILITY.
(defalias 'broken-facility-description #[(facility) "\301N\207" [facility broken-docstring] 2 (#$ . 1244)])
(put 'broken-facility 'lisp-indent-function 1)
#@212 Declare that FACILITY emulation is broken if ASSERTION is nil.
ASSERTION is evaluated statically.

FACILITY must be symbol.

If ASSERTION is not omitted and evaluated to nil and NO-NOTICE is nil,
it is noticed.
(defalias 'broken-facility '(macro . #[(facility &optional docstring assertion no-notice) "\304\305\306\307	D\n\310BBBD\311\312\313\307D\314\307DD\315BBB\316\317\nEE\320BB\305\306\307	D\n\321BBBD\257\207" [assertion facility docstring no-notice static-if eval-and-compile broken-facility-internal quote (t) eval-when-compile when and not (notice-non-obvious-broken-facility) message "BROKEN FACILITY DETECTED: %s" (nil) (nil)] 10 (#$ . 1440)]))
(put 'if-broken 'lisp-indent-function 2)
#@66 If FACILITY is broken, expand to THEN, otherwise (progn . ELSE).
(defalias 'if-broken '(macro . #[(facility then &rest else) "\303\304\305DD	\nBBB\207" [facility then else static-if broken-p quote] 4 (#$ . 2147)]))
(put 'when-broken 'lisp-indent-function 1)
#@65 If FACILITY is broken, expand to (progn . BODY), otherwise nil.
(defalias 'when-broken '(macro . #[(facility &rest body) "\302\303\304DD	BB\207" [facility body static-when broken-p quote] 4 (#$ . 2412)]))
(put 'unless-broken 'lisp-indent-function 1)
#@69 If FACILITY is not broken, expand to (progn . BODY), otherwise nil.
(defalias 'unless-broken '(macro . #[(facility &rest body) "\302\303\304DD	BB\207" [facility body static-unless broken-p quote] 4 (#$ . 2669)]))
#@117 Check FACILITY is broken or not. If the status is different on
compile(macro expansion) time and run time, warn it.
(defalias 'check-broken-facility '(macro . #[(facility) "\301\302\303\304DD\305\306\307\304\310!D\310\304DDEEE\311\303\304DD\305\312\307\310\304DD\304\310!DEEEF\207" [facility if-broken unless broken-p quote message "COMPILE TIME ONLY BROKEN FACILITY DETECTED: %s" or broken-facility-description when "RUN TIME ONLY BROKEN FACILITY DETECTED: %s"] 12 (#$ . 2890)]))
(byte-code "\301\300!\210\301\302!\210\303\304\305!\300\306\307!\310\311\"\210\312\304\305!\"\210\313!\311\232\203) \2024 \314\307\315\311\315\211\211\211\211&)#\210\304\305!\207" [product require apel-ver put provide broken product-find-by-name "APEL" product-run-checkers (10 6) product-add-feature product-version vector nil] 12)