;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:36:49 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/byte-run.el
;;; in Emacs version 21.3
;;; 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 "`byte-run.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\300\301M\210\302\300\303\304#\207" [inline progn put lisp-indent-hook 0] 4)
#@70 Define an inline function.  The syntax is just like that of `defun'.
(defalias 'defsubst '(macro . #[(name arglist &rest body) "\303N\304>\204 \305\306\"\210\307\310	\nBBB\311\312\313D\314\315FDE\207" [name arglist body byte-optimizer (nil byte-compile-inline-expand) error "`%s' is a primitive" prog1 defun eval-and-compile put quote 'byte-optimizer 'byte-compile-inline-expand] 7 (#$ . 707)]))
#@296 Make the byte-compiler warn that FUNCTION is obsolete.
The warning will say that NEW should be used instead.
If NEW is a string, that is the `use instead' message.
If provided, WHEN should be a string indicating when the function
was first made obsolete, for example a date or a release number.
(defalias 'make-obsolete #[(fn new &optional when) "\304N\211\305=\203 \306NA@\202 \307\304\305#\210\307\306\n	E#\210)\207" [fn handler new when byte-compile byte-compile-obsolete byte-obsolete-info put] 7 (#$ . 1115) "aMake function obsolete: \nxObsoletion replacement: "])
#@280 Make the byte-compiler warn that VARIABLE is obsolete,
and NEW should be used instead.  If NEW is a string, then that is the
`use instead' message.
If provided, WHEN should be a string indicating when the variable
was first made obsolete, for example a date or a release number.
(defalias 'make-obsolete-variable #[(var new &optional when) "\303\304	\nB#\210\207" [var new when put byte-obsolete-variable] 5 (#$ . 1702) (list (let ((str (completing-read "Make variable obsolete: " obarray 'boundp t))) (if (equal str "") (error "")) (intern str)) (car (read-from-string (read-string "Obsoletion replacement: "))))])
(put 'dont-compile 'lisp-indent-hook 0)
#@140 Like `progn', but the body always runs interpreted (not compiled).
If you think you need this, you're probably making a mistake somewhere.
(defalias 'dont-compile '(macro . #[(&rest body) "\301\302A\203 \303B\202 @DD\207" [body eval quote progn] 4 (#$ . 2367)]))
(put 'eval-when-compile 'lisp-indent-hook 0)
#@124 Like `progn', but evaluates the body at compile time.
The result of the body appears to the compiler as a quoted constant.
(defalias 'eval-when-compile '(macro . #[(&rest body) "\301B\207" [body progn] 2 (#$ . 2687)]))
(put 'eval-and-compile 'lisp-indent-hook 0)
#@72 Like `progn', but evaluates the body at compile time and at load time.
(defalias 'eval-and-compile '(macro . #[(&rest body) "\301B\207" [body progn] 2 (#$ . 2957)]))