;ELC ;;; compiled by jwz@thalidomide on Wed Mar 23 18:53:04 1994 ;;; from file /th/jwz/emacs19/lisp/ilisp/ilisp-cmu.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 cmulisp-source-directory-regexp "\\/afs\\/cs\\.cmu\\.edu\\/project\\/clisp\\/src\\/[0-9]*\\/" "\ *Regexp to match cmulisp source code directory.") (defvar cmulisp-local-source-directory nil "\ *Where the cmulisp sources really are.") (fset 'cmulisp-source-directory-fixup-function #[nil "!" [cmulisp-local-source-directory replace-match] 2]) (fset 'cmulisp-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 cmulisp-hook nil "\ *Inferior CMU Common LISP hook.") (defvar cmulisp-program nil "\ *Inferior CMU Common LISP default program.") (fset 'setup-cmulisp #[(buffer) " !\"  BC!   !!#B#!" [setup-clisp buffer ilisp-load-init cmu "cmulisp.lisp" cmulisp-local-source-directory cmulisp-source-directory-regexp ilisp-source-directory-fixup-alist message "cmulisp-local-source-directory not set." "^\\([0-9]+\\]+\\|\\*\\) " comint-prompt-regexp "(ILISP:cmulisp-trace \"%s\" \"%s\" \"%s\")" ilisp-trace-command #[(old line) " \n#" [comint-prompt-status old line cmulisp-check-prompt] 4] comint-prompt-status "ILISP:[^\"]*\\|Error [^\n]*" ilisp-error-regexp "(ILISP:arglist \"%s\" \"%s\")" ilisp-arglist-command "(ILISP:source-file \"%s\" \"%s\" \"%s\")" ilisp-find-source-command ":pop" comint-fix-error ":go" comint-continue ":q" ilisp-reset "Interrupted at" comint-interrupt-regexp "sparcf" ilisp-binary-extension cmulisp-program ilisp-program cmulisp ilisp-dialect run-hooks cmulisp-hook] 3 "\ Set up for interacting with CMU Common LISP."]) (fset 'cmulisp #[(&optional buffer program) " # " [ilisp-start-dialect buffer "cmulisp" program setup-cmulisp ilisp-program cmulisp-program] 4 "\ Create an inferior CMU Common LISP. With prefix, prompt for buffer and program." (byte-code "D" [nil] 2)]) (byte-code "!!" [lisp-add-dialect "cmulisp" provide ilisp-cmu] 2)