;ELC   
;;; compiled by jwz@thalidomide on Wed Mar 23 18:52:48 1994
;;; from file /th/jwz/emacs19/lisp/ilisp/ilisp-acl.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 'allegro-check-prompt #[(old new) "«ђБВ\"Г=«€ДГЕO!ЄЃЖБВ\"Г=«‰ДГЕO!ЄЃЖ‰	X*‡" [old string-match "[0-9]+" 1 string-to-int nil 0 old-level new new-level] 5 "\
Compare the break level printed at the beginning of the prompt."])
(defvar allegro-hook nil "\
*Inferior Allegro Common LISP hook.")
(defvar allegro-program nil "\
*Inferior Allegro Common LISP default program.")
(fset 'setup-allegro #[(buffer) "А	!€ВГД\"€ЕЗЙ\nЛНПСУХЧ\"ШЪ®‚ГBЯа!‡" [setup-clisp buffer ilisp-load-init allegro "allegro.lisp" ":pop" comint-fix-error ":reset" ilisp-reset ":cont" comint-continue "Error: [^\n]* interrupt)" comint-interrupt-regexp #[(old line) "А	\nГ#‡" [comint-prompt-status old line allegro-check-prompt] 4] comint-prompt-status "^\\(\\[[0-9]+i?c?\\] \\|\\[step\\] \\)?\\(<?[-A-Za-z]* ?[0-9]*?>\\|[-A-Za-z0-9]+([0-9]+):\\) " comint-prompt-regexp "\\(ILISP:[^\"]*\\)\\|\\(Error:[^\n]*\\)\\|\\(Break:[^\n]*\\)" ilisp-error-regexp "excl:*fasl-default-type*" ilisp-binary-command append ilisp-source-types (("any")) "(ILISP:ilisp-source-files \"%s\" \"%s\" \"%s\")" ilisp-find-source-command "(let ((ext (or #+m68k \"68fasl\"\n		        #+sparc \"sfasl\"\n		        #+iris4d \"ifasl\"\n                        #+dec3100 \"pfasl\"\n                        excl:*fasl-default-type*)))\n           #+allegro-v4.0 (setq ext (concatenate 'string ext \"4\"))\n           ext)" ilisp-init-binary-command allegro-program ilisp-program ilisp-dialect run-hooks allegro-hook] 3 "\
Set up for interacting with Allegro Common LISP."])
(fset 'allegro #[(&optional buffer program) "А	®ЃВД#€‰‡" [ilisp-start-dialect buffer "allegro" program setup-allegro ilisp-program allegro-program] 4 "\
Create an inferior Allegro Common LISP.  With prefix, prompt for buffer and program." (byte-code "А‰D‡" [nil] 2)])
(byte-code "АБ!€\n¬‚ГДЕ!‡" [lisp-add-dialect "allegro" allegro-program "cl" provide ilisp-acl] 2)