;ELC ;;; compiled by jwz@thalidomide on Wed Mar 23 18:53:22 1994 ;;; from file /th/jwz/emacs19/lisp/ilisp/ilisp-kcl.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 'kcl-check-prompt #[(old new) "\"ĕĔZ\"ĕĔZĉ X," [old string-match ">+" was-in-break 0 old-level new is-in-break new-level] 4 "\ Compare the break level printed at the beginning of the prompt."]) (defvar kcl-hook nil "\ *Inferior Kyoto Common LISP hook.") (defvar kcl-program nil "\ *Inferior Kyoto Common LISP default program.") (fset 'setup-kcl #[(buffer) " !   B!" [setup-clisp buffer "^>+" comint-prompt-regexp "Error: " ilisp-error-regexp "o" ilisp-binary-extension ":q" comint-fix-error ":r" comint-continue #[(old line) " \n#" [comint-prompt-status old line kcl-check-prompt] 4] comint-prompt-status kcl-program ilisp-program kcl ilisp-dialect run-hooks kcl-hook] 2 "\ Set up for interacting with Kyoto Common LISP."]) (fset 'kcl #[(&optional buffer program) " # " [ilisp-start-dialect buffer "kcl" program setup-kcl ilisp-program kcl-program] 4 "\ Create an inferior Kyoto Common LISP. With prefix, prompt for buffer and program." (byte-code "D" [nil] 2)]) (byte-code "!\n" [lisp-add-dialect "kcl" kcl-program] 2) (defvar akcl-hook nil "\ *Inferior Austin Kyoto Common LISP hook.") (defvar akcl-program nil "\ *Inferior Austin Kyoto Common LISP default program.") (fset 'setup-akcl #[(buffer) " !\n  B!" [setup-kcl buffer akcl-program ilisp-program akcl ilisp-dialect run-hooks akcl-hook] 2 "\ Set up for interacting with Austin Kyoto Common LISP."]) (fset 'akcl #[(&optional buffer program) " # " [ilisp-start-dialect buffer "akcl" program setup-akcl ilisp-program akcl-program] 4 "\ Create an inferior Austin Kyoto Common LISP. With prefix, prompt for buffer and program." (byte-code "D" [nil] 2)]) (byte-code "!\n" [lisp-add-dialect "akcl" akcl-program] 2) (defvar ibcl-hook nil "\ *Inferior Ibuki Common LISP hook.") (defvar ibcl-program nil "\ *Inferior Ibuki Common LISP default program.") (fset 'setup-ibcl #[(buffer) " !     B!" [setup-kcl buffer "^[-A-Z]*>+\\|^[-A-Z]* ->" comint-prompt-regexp ">>Condition: Terminal Interrupt" comint-interrupt-regexp ":q" comint-continue ":q!" ilisp-reset ">>Error:" ilisp-error-regexp ibcl-program ilisp-program ibcl ilisp-dialect run-hooks ibcl-hook] 2 "\ Set up for interacting with Ibuki Common LISP."]) (fset 'ibcl #[(&optional buffer program) " # " [ilisp-start-dialect buffer "ibcl" program setup-ibcl ilisp-program ibcl-program] 4 "\ Create an inferior Ibuki Common LISP. With prefix, prompt for buffer and program." (byte-code "D" [nil] 2)]) (byte-code "!\n!" [lisp-add-dialect "ibcl" ibcl-program provide ilisp-kcl] 2)