;ELC ;;; compiled by cthomp@willow on Fri Sep 3 14:45:52 1993 ;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-snd.el ;;; emacs version 19.8 (beta12) Lucid. ;;; bytecomp version 2.18; 28-aug-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 'lisp-buffer-package #[nil "=\n \n!! \n Q\n)  > >Ň!!!! \n Q\n)" [buffer-package not-yet-computed lisp-dont-cache-package ilisp-completion-package lisp-buffer-package-internal nil package message "" buffer-mode-name mode-name ":" lisp-buffer-package major-mode ilisp-modes lisp-source-modes make-local-variable t] 3 "\ Return the package for this buffer. The package name is a string. If there is none, return NIL. This caches the package unless ilisp-dont-cache-package is non-nil, so calling this more than once is cheap."]) (fset 'lisp-buffer-package-internal #[(search-from-start) "\"eb##̔̔b `{)!\"#\"!!\"ܔܕO." [ilisp-status mode-line-process t lisp-buffer-package case-fold-search ilisp-value ilisp-package-regexp regexp search-from-start re-search-forward nil re-search-backward 0 forward-sexp spec format ilisp-package-command str ilisp-send "Finding buffer package" pkg package comint-errorp lisp-display-output error "No package" string-match "[ \n :\"]*\\([^ \n \"]*\\)" 1] 5 "\ Returns the package of the buffer. If SEARCH-FROM-START is T then will search from the beginning of the buffer, otherwise will search backwards from current point."]) (fset 'package-lisp #[nil "!#\"" [message "Inferior LISP package is %s" ilisp-send ilisp-value ilisp-package-name-command "Finding inferior LISP package" pkg] 6 "\ Show current inferior LISP package." nil]) (fset 'set-package-lisp #[(package) "!\" !#$!" [package ilisp-send format ilisp-value ilisp-in-package-command "Set %s's package to %s" buffer-name ilisp-buffer pkg dispatch error "No package"] 6 "\ Set inferior LISP to package of buffer or a named package with prefix." (byte-code " \n \"\"ƚ )C C)" [lisp-buffer-package default current-prefix-arg read-string format "Package [%s]: " "" name] 5)]) (fset 'set-buffer-package-lisp #[(package) "\n Q " [package buffer-package buffer-mode-name mode-name ":" not-yet-computed lisp-buffer-package] 3 "\ Reset the current package of the current buffer. With prefix specify manually." (byte-code "!CC" [current-prefix-arg read-from-minibuffer "Package: " nil] 2)]) (fset 'lisp-string-to-symbol #[(string) "\n\"ĕ UǪ\n O\n O\n O# \n\n\n#)*" [string-match ":+" string start 0 end lisp-symbol "" nil lisp-buffer-package package "::"] 7 "\ Convert STRING to a symbol, (package delimiter symbol) where the package is either package:symbol or from the current buffer."]) (fset 'lisp-symbol-to-string #[(symbol) "\n\"" [apply concat symbol] 3 "\ Convert SYMBOL to a string."]) (fset 'lisp-buffer-symbol #[(symbol) " ! ! !  ȘP Q+" [lisp-symbol-name symbol lisp-symbol-package lisp-symbol-delimiter delimiter pkg symbol-name lisp-buffer-package "" ":"] 4 "\ Return SYMBOL as a string qualified for the current buffer."]) (fset 'lisp-previous-symbol #[(&optional stay) " >`p!!Uxo`Sf>?! \n w`  x` o? S  f= f=o? Sf=!?  {!  E-B)" [major-mode ilisp-modes process-mark get-buffer-process " \n" nil (41 34) ilisp-value ilisp-symbol-delimiters delimiters stay end start prefix 40 39 35 looking-at "[^: \n]*:*\\*[^ \n]" function-p lisp-string-to-symbol] 5 "\ Return the immediately preceding symbol as ((package delimiter symbol) function-p start end). If STAY is T, the end of the symbol will be point."]) (fset 'lisp-function-name #[nil " A@ @ď*" [lisp-previous-symbol symbol nil (byte-code " >`p!!U?!!`!`{!" [major-mode ilisp-modes process-mark get-buffer-process backward-up-list 1 down-list lisp-string-to-symbol forward-sexp] 4) ((error))] 4 "\ Return the previous function symbol. This is either after a #' or at the start of the current sexp. If there is no current sexp, return nil."]) (fset 'lisp-defun-name #[nil " !!)" [lisp-defun-begin lisp-string-to-symbol lisp-def-name t] 3 "\ Return the name of the current defun."]) (fset 'ilisp-initialized #[nil " !\n>" [buffer-name ilisp-buffer ilisp-initialized] 2 "\ Return T if the current inferior LISP has been initialized."]) (fset 'ilisp-load-init #[(dialect file) " \n\" \n BC \n\")" [assoc dialect ilisp-load-inits old file delq] 3 "\ Add FILE to the files to be loaded into the inferior LISP when dialect is initialized. If FILE is NIL, the entry will be removed."]) (fset 'ilisp-binary #[(init var) " \"? \" EFE&)" [ilisp-value var t init binary comint-send ilisp-process nil lambda (error wait message output last) if (or error (not (string-match "\"[^\"]*\"" output))) (progn (lisp-display-output output) (abort-commands-lisp "No binary")) setq (substring output (1+ (match-beginning 0)) (1- (match-end 0)))] 16 "\ Initialize VAR to the result of INIT if VAR is NIL."]) (fset 'ilisp-done-init #[nil "p!\" @\"p!\nB\n" [ilisp-load-files comint-send-code get-buffer-process ilisp-done-init ilisp-initializing message "Finished initializing %s" ilisp-dialect nil buffer-name ilisp-initialized] 3 "\ Make sure that initialization is done and if not dispatch another check."]) (fset 'ilisp-init-internal #[(&optional sync) " Ɖ%\"\" \"\")" [((byte-code "\" " [ilisp-value ilisp-initializing t abort-commands-lisp] 3)) sync comint-sync ilisp-process "\"Start sync\"" "[ \n]*\"Start sync\"" "\"End sync\"" ilisp-binary ilisp-binary-command ilisp-binary-extension ilisp-init-binary-command ilisp-init-binary-extension comint-send-code #[nil "Ď  @A \"! Ap \"͉+" [ilisp-load-inits nil done files ((byte-code " " [done nil ilisp-initializing abort-commands-lisp] 1)) ilisp-init-binary-extension ilisp-binary-extension ilisp-load-or-send expand-file-name ilisp-directory comint-send-code ilisp-process ilisp-done-init t] 5] set-ilisp-value ilisp-initializing t] 6 "\ Send all of the stuff necessary to initialize."]) (fset 'ilisp-init #[(&optional waitp forcep sync) " ?! \"\"\" ! \" !q" [forcep ilisp-initialized message "Started initializing ILISP" ilisp-directory "ilisp.elc" load-path "ilisp.el" ilisp-value ilisp-initializing t ilisp-init-internal sync waitp accept-process-output sit-for 0] 3 "\ Initialize the current inferior LISP if necessary by loading the files in ilisp-load-inits. Optional WAITP waits for initialization to finish. When called interactively, force reinitialization. With a prefix, get the binary extensions again." (byte-code "\"\"D" [current-prefix-arg set-ilisp-value ilisp-init-binary-extension nil ilisp-binary-extension t] 3)]) (fset 'ilisp-init-and-sync #[nil "#" [ilisp-init nil t] 4 "\ Synchronize with the inferior LISP and then initialize."]) (fset 'call-defun-lisp #[(arg) " !)  ! ! !Q\n\" \"щ\"ҔҕO?\nRP\" ?\nP\"P!?\nR?#\nR\")- !{)щ\" c)" [lisp-defun-begin looking-at "(def" lisp-defun-name symbol lisp-symbol-name name lisp-symbol-package "\\(" ":+\\)?" package string-match "^\\*" variablep "(setf \\([^)]+\\)" setfp switch-to-lisp t 1 lisp-match-ring arg "(setf[ \n]*(" "[ \n]" "(setf (" "(" fun regexp-quote "[ \n)]" "[^ \n]*-*" lisp-end-defun-text form comint-kill-input] 5 "\ Put a call of the current defun in the inferior LISP and go there. If it is a (def* name form, look up reasonable forms of name in the input history unless called with prefix ARG. If not found, use (name or *name* as the call. If is not a def* form, put the whole form in the buffer." "P"]) (fset 'ilisp-send #[(string &optional message status and-go handler) "! = P\"\n >  ɉ& =!\"ɪ\"  \" ?& \"& ?A! r@!**" [ilisp-init t ilisp-process and-go dispatch process message "%s" "Started " nil ilisp-original (t call) comint-send string status handler call call-defun-lisp switch-to-lisp ilisp-value ilisp-save-command save format wait result ilisp-restore-command restore "Restore" sit-for 0 accept-process-output comint-remove-whitespace] 9 "\ Send STRING to the ILISP buffer, print MESSAGE set STATUS and return the result if AND-GO is NIL, otherwise switch to ilisp if and-go is T and show message and results. If AND-GO is 'dispatch, then the command will be executed without waiting for results. If AND-GO is 'call, then a call will be generated. If this is the first time an ilisp command has been executed, the lisp will also be initialized from the files in ilisp-load-inits. If there is an error, comint-errorp will be T and it will be handled by HANDLER."]) (fset 'ilisp-load-or-send #[(file) "! \"\" #\" C\"  \"&)" [format ilisp-value ilisp-load-or-send-command lisp-file-extension file ilisp-init-binary-extension t command set-ilisp-value ilisp-load-files comint-send ilisp-process nil load "Loading %s" #[(error wait message output last) " !p!!@\"\n! \n!q ) !Ҙ\n\"! \"\n\"&+ %\n \"+" [lisp-last ilisp-load-files file get-buffer-process process t case-fold-search output string-match "nil" lisp-last-line get-file-buffer old-buffer find-file-noselect buffer buffer-string string kill-buffer "" abort-commands-lisp format "Can't find file %s" comint-send ilisp-block-command nil send "Sending %s" #[(error wait message output last) "\n!!\"!!\"" [error comint-display-error output abort-commands-lisp format "Error sending %s" lisp-last ilisp-load-files delq] 5] error ilisp-handler wait message last delq] 9]] 9 "\ Try to load FILE into the inferior LISP. If the file is not accessible in the inferior LISP as determined by ilisp-load-or-send-command, then visit the file and send the file over the process interface."]) (provide 'ilisp-snd)