;ELC   
;;; compiled by jwz@thalidomide on Sun Jan  2 02:59:33 1994
;;; from file /th/jwz/emacs19/lisp/energize/backtrace-logging.el
;;; emacs version 19.9 Lucid (beta10).
;;; bytecomp version 2.22; 22-dec-93.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(byte-code "ÀÁ!¬‚ÂÀÃ!¬‚ÄÀÅ!¬‚ÄÀÆ!¬ƒÄÀÇ!¬ƒÇÈÉMˆÊËMˆÌÍMˆÎÏMˆÐÑMˆÒÓMˆÔÕMˆÖ×MˆØÙMˆÚÛMˆÜÝMˆÞßMˆàáMˆâãMˆäåMˆæçMˆèéMˆêëMˆìíMˆîïMˆðñM‡" [boundp *btl-index-counter* 1 *btl-data-file* nil *btl-indices-assigned* elisp-only-btl cadillac-id-tag-save assign-btl-indices #[(&optional force) "¬„	?­‡ÂÃ!ˆÄ‰‡" [force *btl-indices-assigned* mapatoms assign-btl-index t] 2] btl-compiled-p #[(function) "À	!®¶Â	!®±	:­­	@Ã=­§	AAÄ«š¬—@‰:«†@È=A)ªb*‡" [subrp function compiled-function-p lambda nil quit rest trial byte-code] 3] get-btl-index #[(symbol) "9­Ÿ	N®ƒÂN‰«Œ¨«ˆÄV«ƒª†T)‡" [symbol cadillac-id-tag cadillac-id-tag-save val 0 *btl-index-counter*] 3] disable-btl-index #[(symbol) "9­ 	N®ƒÂN‰«¨«‹ÄV«†ÅÂ#ˆÆ	\")‡" [symbol cadillac-id-tag cadillac-id-tag-save val 0 put remprop] 5] assign-btl-index #[(symbol) "9­½Á!­¸KÃ\n!Å\n!N	«’«Ž¬ŠÊË!#ª	?­Š­‡­ƒÌ!,‡" [symbol fboundp function subrp subr-function btl-compiled-p compiled-function cadillac-id-tag tagged-function elisp-only-btl put get-btl-index disable-btl-index] 5] file-to-btl-data-file #[(file) "ÀÁ!‰˜«‚Ä)®Ä;«…Ç!«…Äª’È!«ŠÉÊË\"!ªƒÌ¬„ÍÎ!ˆ)‡" [expand-file-name "" base-dir file nil *btl-data-file* go-ahead file-directory-p file-exists-p y-or-n-p message "File exists -- overwrite %s? " t error "Bad data file."] 5] btl-init #[(file &optional pc-logging) "À	!\n«ƒÃªÄÆÇÈ\"!ˆÉÊ!ˆËÌ!ˆ	\n«†Î	!ˆª„Ï	!ˆÆÇÐ\"!ˆÉÑ!ˆÆÒ!ˆÉÊ!)‡" [file-to-btl-data-file file pc-logging "PC logging" "btl" log-type message format "Initializing %s..." sit-for 0 assign-btl-indices t *btl-data-file* initialize-pc-logging-internal initialize-backtrace-logging-internal "Initializing %s...done." 1 ""] 4] start-btl #[(file &optional elisp-flag-val) "À ˆ	Ã!ˆÅ ‡" [terminate-logging elisp-flag-val elisp-only-btl btl-init file start-logging] 2 nil "FFile in which to write data: "] start-btl-elisp #[(file) "À	Â\"‡" [start-btl file t] 3 nil "FFile in which to write data: "] consing-btl #[(file &optional elisp-flag-val) "À ˆ	ÃÄ!ˆÅ!ˆÇ ‡" [terminate-logging elisp-flag-val elisp-only-btl set-log-signal 0 btl-init file start-logging] 2 nil "FFile in which to write data: "] consing-btl-elisp #[(file) "À	Â\"‡" [consing-btl file t] 3 nil "FFile in which to write data: "] set-elisp-btl #[(arg) "À	Â\"‰‡" [eql arg 1 elisp-only-btl] 3 nil "p"] start-pcl #[(file &optional elisp-flag-val) "ÂÄ\"ˆÅ ‡" [elisp-flag-val elisp-only-btl btl-init file t start-logging] 3 nil "FFile in which to write data: "] start-pcl-elisp #[(file) "À	Â\"‡" [start-pcl file t] 3 nil "FFile in which to write data: "] suspend-btl #[nil "À ‡" [stop-logging] 1 nil nil] suspend-pcl #[nil "À ‡" [stop-logging] 1 nil nil] resume-btl #[nil "À ‡" [start-logging] 1 nil nil] resume-pcl #[nil "À ‡" [start-logging] 1 nil nil] stop-btl #[nil "À ‡" [terminate-logging] 1 nil nil] stop-pcl #[nil "À ‡" [terminate-logging] 1 nil nil] show-btl #[nil "À ˆÁÂÃ!!ˆdbˆÄp!ˆ­ƒÆ!‡" [terminate-logging switch-to-buffer get-buffer-create "*BTL Log Info*" buffer-disable-undo *btl-data-file* summarize-logging] 3 nil nil]] 2)