;ELC ;;; compiled by jwz@thalidomide on Wed Mar 23 18:53:36 1994 ;;; from file /th/jwz/emacs19/lisp/ilisp/ilisp-luc.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 'lucid-check-prompt #[(old new) "\"=ÕÔZ \"=ÕÔZÉ X*" [old string-match "\\(->\\)+" 0 old-level new new-level] 4 "\ Compare the break level printed at the beginning of the prompt."]) (defvar lucid-hook nil "\ *Inferior Lucid Common LISP hook.") (defvar lucid-program nil "\ *Inferior Lucid Common LISP default program.") (fset 'setup-lucid #[(buffer) " !\"\n \"B!" [setup-clisp buffer ilisp-load-init lucid "lucid.lisp" "^\\(->\\)+ \\|^[^> ]*> " comint-prompt-regexp ":a" comint-fix-error ":a :t" ilisp-reset ":c" comint-continue ">>Break: Keyboard interrupt" comint-interrupt-regexp #[(old line) " \n#" [comint-prompt-status old line lucid-check-prompt] 4] comint-prompt-status "ILISP:[^\"]*\\|>>[^\n]*" ilisp-error-regexp append ilisp-source-types (("any")) "(ILISP:ilisp-source-files \"%s\" \"%s\" \"%s\")" ilisp-find-source-command "(first (last lucid::*load-binary-pathname-types*))" ilisp-binary-command lucid-program ilisp-program ilisp-dialect run-hooks lucid-hook] 3 "\ Set up for interacting with Lucid Common LISP."]) (fset 'lucid #[(&optional buffer program) " # " [ilisp-start-dialect buffer "lucid" program setup-lucid ilisp-program lucid-program] 4 "\ Create an inferior Lucid Common LISP. With prefix, prompt for buffer and program." (byte-code "D" [nil] 2)]) (byte-code "!\n!" [lisp-add-dialect "lucid" lucid-program "lisp" provide ilisp-luc] 2)