;ELC   
;;; compiled by jwz@thalidomide on Wed Mar 23 18:49:58 1994
;;; from file /th/jwz/emacs19/lisp/ilisp/ilisp-dia.el
;;; emacs version 19.10 Lucid (beta8).
;;; 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."))

(fset 'lisp-add-dialect #[(dialect) "А	\nГ#?­†	C\nB‰‡" [lisp-memk dialect ilisp-dialects car] 4 "\
Add DIALECT as a supported ILISP dialect."])
(fset 'ilisp-start-dialect #[(buffer program setup) "Б=«‚Вp«‡ДЕ\"Є‚!€®Њ«‡ЙК\"Є‚М\"‡" [current-prefix-arg 0 nil ilisp-last-buffer read-from-minibuffer "Buffer: " buffer setup program lisp-read-program "Program: " ilisp-program ilisp] 3])
(fset 'defdialect '(macro . #[(dialect full-name parent &rest body) "АБВ\"!АБД\"!АБЕ\"!БЖ\"	\nЛМ	НБО\"FМНБР\"FСТ\nCУБФ\"АБХ\"!DШЩЪЩEЫЬЭDЫEЇЮЭАБД\"!DDD&ЯаБб\"вгЪдEИЭ\nDFШЩEЇеDЇ,‡" [read format "setup-%s" dialect "%s-hook" "%s-program" "%s" dialects program hook setup progn defvar nil "*Inferior %s hook." full-name "*Inferior %s default program." append (defun) ((buffer)) "Set up for interacting with %s." "(setup-%s buffer)" parent body setq ilisp-program or ilisp-dialect cons quote run-hooks defun (&optional buffer program) "Create an inferior %s.  With prefix, prompt for buffer and program." (interactive (list nil nil)) ilisp-start-dialect buffer lisp-add-dialect] 16 "\
Define a new ILISP dialect.  DIALECT is the name of the function to
invoke the inferior LISP. The hook for that LISP will be called
DIALECT-hook.  The default program will be DIALECT-program.  FULL-NAME
is a string that describes the inferior LISP.  PARENT is the name of
the parent dialect."]))
(fset 'setup-ilisp #[(buffer) "АБ!q€В €Г €ДЕ\"А!q€И	КМН!€«”Ф@!€@ХL€A‰¬l«„«„+ЦЧ!€ШЪЬЮа!Н\"Н#Х$е&з(й*л,н-о/р1т2у456ч8щ:ы<э=ю?Ѓ@ AЃB CЃD EЃF GЃH ЃI !‡" [get-buffer-create "*ilisp-send*" kill-all-local-variables lisp-mode format "*%s*" buffer ilisp-buffer ilisp-mode major-mode "ILISP" mode-name lisp-mode-variables t ilisp-binary-extension ilisp-init-binary-extension ilisp-locals vars init binary make-local-variable nil set-ilisp-input-ring-size 200 "^[^<> ]*>+:? *" comint-prompt-regexp ilisp-get-old-input comint-get-old-input ignore comint-input-sentinel ilisp-input-filter comint-input-filter comint-default-send comint-input-sender comint-eol-on-send comint-send-newline comint-always-scroll " *Output*" comint-output-buffer " *Error Output*" comint-error-buffer "^\"ILISP:" comint-error-regexp identity comint-output-filter comint-interrupt-start ilisp-handler comint-handler ilisp-update-status comint-update-status comint-prompt-status ilisp-abort-handler comint-abort-hook ilisp-mode-map ilisp-use-map ((lambda nil (ilisp-init nil nil t))) ilisp-init-hook "\\`\\s *\\(:\\(\\w\\|\\s_\\)*\\)?\\s *\\'" ilisp-filter-regexp 3 ilisp-filter-length ilisp-error-filter ".*" ilisp-error-regexp "^ 	\n('\"#.)<>" ilisp-symbol-delimiters "lisp" ilisp-program lisp-locate-ilisp ilisp-locator lisp-locate-calls ilisp-calls-locator run-hooks ilisp-mode-hook] 4 "\
Set up for interacting with an inferior LISP."])
(fset 'run-ilisp #[nil "АБ\nГД$‰GЖU?­…ЗИ!!)‡" [completing-read "Dialect: " ilisp-dialects nil t dialect 0 call-interactively read] 6 "\
Create an inferior LISP prompting for dialect.  With prefix, prompt
for buffer name as well." nil])
(provide 'ilisp-dia)