;ELC   
;;; compiled by jwz@thalidomide on Wed Mar 23 18:52:34 1994
;;; from file /th/jwz/emacs19/lisp/ilisp/ilisp-cl.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."))

(defvar clisp-hook nil "\
*Inferior Common LISP hook.")
(defvar clisp-program nil "\
*Inferior Common LISP default program.")
(fset 'setup-clisp #[(buffer) "А	!€ВДЕЖ\"€ЗЙ\nЛНПСУХЧЩЫЭЯ б\"г$е&з(й*л,н.п0с2у4х6ч8щ:ы<э>я@A®‚BBЕCBCЃD ЃE !‡" [setup-ilisp buffer "(or (and (load \"%s\" :if-does-not-exist nil) t)\n             (and (load \"%s\" :if-does-not-exist nil) t))" ilisp-load-or-send-command ilisp-load-init clisp "clisp.lisp" "^[ 	]*(in-package[ 	\n]*" ilisp-package-regexp "(let ((*package* *package*)) %s (package-name *package*))" ilisp-package-command "(package-name *package*)" ilisp-package-name-command "(in-package \"%s\")" ilisp-in-package-command "*" ilisp-last-command "(progn (ILISP:ilisp-save) %s\n)" ilisp-save-command "(ILISP:ilisp-restore)" ilisp-restore-command "(progn %s\n)" ilisp-block-command "(ILISP:ilisp-eval \"%s\" \"%s\" \"%s\")" ilisp-eval-command "(defvar[ 	\n]" ilisp-defvar-regexp "(ILISP:ilisp-eval \"(let ((form '%s)) (progn (makunbound (second form)) (eval form)))\" \"%s\" \"%s\")" ilisp-defvar-command "(ILISP:ilisp-compile \"%s\" \"%s\" \"%s\")" ilisp-compile-command "(ILISP:ilisp-describe \"%s\" \"%s\")" ilisp-describe-command "(ILISP:ilisp-inspect \"%s\" \"%s\")" ilisp-inspect-command "(ILISP:ilisp-arglist \"%s\" \"%s\")" ilisp-arglist-command (("function") ("variable") ("structure") ("type") ("setf") ("class") ("(qualifiers* (class ...))")) ilisp-documentation-types "(ILISP:ilisp-documentation \"%s\" \"%s\" \"%s\")" ilisp-documentation-command "(ILISP:ilisp-macroexpand-1 \"%s\" \"%s\")" ilisp-macroexpand-1-command "(ILISP:ilisp-macroexpand \"%s\" \"%s\")" ilisp-macroexpand-command "(ILISP:ilisp-matching-symbols \"%s\" \"%s\" %s %s %s)" ilisp-complete-command lisp-locate-clisp ilisp-locator (("function") ("macro") ("variable") ("structure") ("type") ("setf") ("class") ("(qualifiers* (class ...))")) ilisp-source-types "(ILISP:ilisp-callers \"%s\" \"%s\")" ilisp-callers-command "(ILISP:ilisp-trace \"%s\" \"%s\" \"%s\")" ilisp-trace-command "(ILISP:ilisp-untrace \"%s\" \"%s\")" ilisp-untrace-command "(namestring *default-pathname-defaults*)" ilisp-directory-command "(setq *default-pathname-defaults* (parse-namestring \"%s\"))" ilisp-set-directory-command "(load \"%s\")" ilisp-load-command "(ILISP:ilisp-compile-file \"%s\" \"%s\")" ilisp-compile-file-command clisp-program ilisp-program ilisp-dialect run-hooks clisp-hook] 3 "\
Set up for interacting with Common LISP."])
(fset 'clisp #[(&optional buffer program) "А	®ЃВД#€‰‡" [ilisp-start-dialect buffer "clisp" program setup-clisp ilisp-program clisp-program] 4 "\
Create an inferior Common LISP.  With prefix, prompt for buffer and program." (byte-code "А‰D‡" [nil] 2)])
(byte-code "АБ!€ВГ!‡" [lisp-add-dialect "clisp" provide ilisp-cl] 2)