;ELC ;;; compiled by jwz@thalidomide on Wed Mar 23 18:50:22 1994 ;;; from file /th/jwz/emacs19/lisp/ilisp/ilisp-mod.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 'ilisp-byte-code-to-list #[(function) "9KH H H HFȏ)" [function function-object 0 1 2 3 nil (byte-code "HďB" [function-object 4 nil (byte-code "HC" [function-object 5] 2) ((error))] 4) ((error))] 6 "\ Returns a list suitable for passing to make-byte-code from FUNCTION."]) (fset 'ilisp-set-doc #[(function string) "K<ď AA@;  @ AB ) !B\"M))" [function old-function nil (byte-code "@" [old-function] 2) ((error (byte-code " !\n M" [copy-sequence old-function function] 2))) ndoc-cdr string ilisp-byte-code-to-list new-code 4 3 apply make-byte-code] 5 "\ Set the documentation of the symbol FUNCTION to STRING."]) (byte-code "M \" \"" [ilisp-mode #[nil " " [run-ilisp] 1 nil nil] ilisp-set-doc ilisp-documentation lisp-mode] 3) (fset 'lisp-command-args #[(string) "G W H= O B T Td O B!," [string 0 nil args arg position len 32 reverse] 5 "\ Break up STRING into (command args ...)."]) (fset 'ilisp #[(name setup) "q!\n@  !  \"  @A%  !@ؠ\" # CB! ! db \"c !`ȓ$!%%'\"! \")!.!-!-\"" [ilisp-buffer comint-check-proc ilisp-dialect dialect ilisp-program program lisp-command-args args nil process-connection-type format "%s" name names start apply make-comint comint-setup-ipc setup ilisp-mode major-mode "ILISP" mode-name comint-send-queue #[nil "!" [run-hooks ilisp-init-hook] 2] lisp-del ilisp-initialized lisp-memk ilisp-buffers car lisp-pop-to-buffer window-start selected-window "Starting %s ...\n" process-mark ilisp-process comint-update-status ilisp-motd lisp-display-output ilisp-version set-window-start ilisp-prefix-match require completer use-local-map ilisp-use-map set-default] 6 "\ Run an inferior LISP process NAME, input and output via buffer *name*. If there is a process already running in *name*, just switch to that buffer. Takes the program name from the variable ilisp-program. (Type \\[describe-mode] in the process buffer for a list of commands.)"]) (autoload 'fi:clman "fi/clman" "\ Look up SYMBOL in the online manual with completion." t) (autoload 'fi:clman-apropos "fi/clman" "\ Do an apropos search in online manual for STRING." t) (autoload 'install-bridge "bridge" "\ Install process bridge." t) (byte-code " \"\" \"!" [set-default auto-mode-alist append (("\\.cl$" . lisp-mode) ("\\.lisp$" . lisp-mode)) (".68fasl" ".sfasl" ".ifasl" ".pfasl" ".68fasl4" ".sfasl4" ".ifasl4" ".pfasl4" ".sbin") completion-ignored-extensions provide ilisp-mod] 5)