;ELC   
;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:33 2008
;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/xmtn-base.el
;;; in Emacs version 23.0.50.2
;;; 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 "`xmtn-base.el' was compiled for Emacs 19.29 or later"))

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


(require 'cl)
#@162 *The monotone executable command.

After changing the value of this variable, be sure to run
`xmtn-check-command-version' to clear xmtn's command version
cache.
(defvar xmtn-executable "mtn" (#$ . -611))
#@64 *Additional arguments to pass to monotone.

A list of strings.
(defvar xmtn-additional-arguments nil (#$ . -821))
(put 'xmtn--hash-id 'cl-deftype-handler #[nil "\300\207" [(and string (satisfies xmtn--hash-id-p))] 1])
(defalias 'xmtn--hash-id-p #[(thing) ";\205 \302 \303\216\304\305\"*\207" [thing save-match-data-internal match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\\`[0-9a-f]\\{40\\}\\'"] 3])
#@35 Effective at macroexpansion time.
(defvar xmtn--*enable-assertions* nil (#$ . 1295))
(defalias 'xmtn--assert-for-effect '(macro . #[(form &rest more-assert-args) "\203\n \303	\nBB\207\304	\305BB\207" [xmtn--*enable-assertions* form more-assert-args assert progn (nil)] 3]))
(defalias 'xmtn--assert-optional '(macro . #[(form &rest more-assert-args) "\205	 \303	\nBB\207" [xmtn--*enable-assertions* form more-assert-args assert] 3]))
(defalias 'xmtn--assert-nil '(macro . #[nil "\300\207" [(assert nil)] 1]))
(provide 'xmtn-base)