;ELC ;;; compiled by jwz@thalidomide on Wed Mar 23 18:51:19 1994 ;;; from file /th/jwz/emacs19/lisp/ilisp/ilisp-hi.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 'lisp-send-region #[(start end switch message status format &optional handler) " U! $ { !U!\"! $> ==٪% bcc)\"\"!!\"+" [start end error "Region is empty" lisp-count-pairs 40 41 string sexp format ilisp-value lisp-slashify 1 ilisp-block-command lisp-buffer-package buffer-file-name ilisp-send message status switch (t call) lisp-wait-p lisp-minus-prefix current-prefix-arg result nil dispatch handler 10 comint-errorp t string-match "\n" lisp-display-output popper-bury-output "%s"] 7 "\ Given START, END, SWITCH, MESSAGE, STATUS, FORMAT and optional HANDLER send the region between START and END to the lisp buffer and execute the command defined by FORMAT on the region, its package and filename. If called with a positive prefix, the results will be inserted at the end of the region. If SWITCH is T, the command will be sent and the buffer switched to the inferior LISP buffer. if SWITCH is 'call, a call will be inserted. If SWITCH is 'result the result will be returned without being displayed. Otherwise the results will be displayed in a popup window if lisp-wait-p is T and the current-prefix-arg is not '- or if lisp-wait-p is nil and the current-prefix-arg is '-. If not displayed in a pop-up window then comint-handler will display the results in a pop-up window if they are more than one line long, or they are from an error. STATUS will be the process status when the command is actually executing. MESSAGE is a message to let the user know what is going on."]) (fset 'eval-region-lisp #[(start end &optional switch message status handler) " \"P\" bw !) w` U) & &)" [message "Evaluate " lisp-region-name start end ilisp-value ilisp-defvar-regexp t defvar " \n" nil case-fold-search looking-at forward-sexp lisp-send-region switch status ilisp-defvar-command handler eval ilisp-eval-command] 9 "\ Evaluate the current region." "r"]) (fset 'eval-next-sexp-lisp #[(&optional switch) "` `)\n \n {\"$*" [nil end start forward-sexp eval-region-lisp switch format "Evaluate %s"] 8 "\ Evaluate the next sexp." nil]) (fset 'eval-defun-lisp #[(&optional switch) "  @ A@ AA@\"$)" [lisp-defun-region-and-name form eval-region-lisp switch format "Evaluate %s"] 7 "\ Evaluate the current form." nil]) (fset 'eval-region-and-go-lisp #[(start end) " \n#" [eval-region-lisp start end t] 4 "\ Evaluate the current region and switch to the current ILISP buffer." "r"]) (fset 'eval-next-sexp-and-go-lisp #[(&optional switch) "!" [eval-next-sexp-lisp t] 2 "\ Evaluate the next sexp and switch to the current ILISP buffer." nil]) (fset 'eval-defun-and-go-lisp #[nil " ê!" [eval-defun-lisp current-prefix-arg nil call t] 2 "\ Evaluate the current defun and switch to the current ILISP buffer. With prefix, insert a call as well." nil]) (fset 'compile-region-lisp #[(start end &optional switch message status handler) " \n \n\"P\n&" [lisp-send-region start end switch message "Compile " lisp-region-name status compile ilisp-compile-command handler] 8 "\ Compile the current region." "r"]) (fset 'compile-defun-lisp #[(&optional switch) " @ A@\n U > \"qed| c *\n  AA@\"$+" [lisp-defun-region-and-name form start end major-mode ilisp-modes ring-ref ilisp-get-input-ring ilisp-input-ring-index "*ilisp-send*" compile-defun-lisp compile-region-lisp switch format "Compile %s"] 8 "\ Compile the current defun or the last command in the input-ring of an ILISP buffer if no current defun." nil]) (fset 'compile-region-and-go-lisp #[(start end) " \n#" [compile-region-lisp start end t] 4 "\ Compile the current region and switch to the current ILISP buffer." "r"]) (fset 'compile-defun-and-go-lisp #[nil " ê!" [compile-defun-lisp current-prefix-arg nil call t] 2 "\ Compile the current defun and switch to the current ILISP buffer." nil]) (fset 'compile-file-lisp #[(file-name &optional extension) " ! ! !B! \" ɕO ! !# P$)" [comint-check-source file-name file-name-directory file-name-nondirectory lisp-prev-l/c-dir/file ilisp-init t string-match "/.*?@.*:" 0 nil ilisp-send format ilisp-value ilisp-compile-file-command extension ilisp-binary-extension "Compile " compile] 6 "\ Compile a Lisp file in the current inferior LISP and go there." (comint-get-source "Compile Lisp file: " lisp-prev-l/c-dir/file lisp-source-modes nil)]) (fset 'ilisp-compile-inits #[nil "!\" @A\"\"\" Al)" [ilisp-init t ilisp-value ilisp-load-inits files compile-file-lisp expand-file-name ilisp-directory ilisp-init-binary-extension nil] 6 "\ Compile the initialization files for the current inferior LISP dialect." nil]) (fset 'close-and-send-lisp #[nil " \n> " [reindent-lisp major-mode ilisp-modes return-ilisp eval-defun-lisp] 2 "\ Close and indent the current sexp then send it to the inferior LISP." nil]) (fset 'describe-lisp #[(sexp) "! ! # P#  !)" [ilisp-send format ilisp-value ilisp-describe-command lisp-slashify sexp lisp-buffer-package "Describe " describe result lisp-display-output] 5 "\ Describe the current sexp using ilisp-describe-command. With a negative prefix, prompt for the expression. If in an ILISP buffer, and there is no current sexp, describe ilisp-last-command." (byte-code " !\" >`p!!U\"!!!C" [lisp-minus-prefix ilisp-read "Describe: " lisp-previous-sexp t major-mode ilisp-modes process-mark get-buffer-process ilisp-value ilisp-last-command error "No sexp to describe."] 4)]) (fset 'inspect-lisp #[(sexp) "! ! # P$" [ilisp-send format ilisp-value ilisp-inspect-command lisp-slashify sexp lisp-buffer-package "Inspect " inspect t] 5 "\ Inspect the current sexp using ilisp-inspect-command. With a prefix, prompt for the expression. If in an ILISP buffer, and there is no current sexp, inspect ilisp-last-command." (byte-code "!\" >`p!!U\"!!!C" [current-prefix-arg ilisp-read "Inspect: " lisp-previous-sexp t major-mode ilisp-modes process-mark get-buffer-process ilisp-value ilisp-last-command error "No sexp to inspect."] 4)]) (fset 'arglist-lisp #[(symbol) "!!!!#!P#  \"\"` TOcb) O !*" [symbol error "No symbol" ilisp-send format ilisp-value ilisp-arglist-command lisp-symbol-name lisp-symbol-package "Arglist " lisp-buffer-symbol args arglist string-match "(" position comint-errorp t current-prefix-arg temp nil lisp-display-output] 6 "\ Return the arglist of the currently looked at function. With a numeric prefix, the arglist will be inserted. With a negative one, the symbol will be prompted for." (byte-code "  !\" # )C" [lisp-function-name function lisp-minus-prefix ilisp-read-symbol format "Arglist [%s]: " lisp-buffer-symbol t] 5)]) (fset 'documentation-lisp #[(symbol type) "!!!$!##!" [lisp-display-output ilisp-send format ilisp-value ilisp-documentation-command lisp-symbol-name symbol lisp-symbol-package type "Documentation %s %s" lisp-buffer-symbol doc] 8 "\ Return the documentation of the previous symbol using ilisp-documentation-command. If the symbol is at the start of a list, it is assumed to be a function, otherwise variable documentation is searched for. With a minus prefix, prompt for the symbol and type. With a numeric prefix always return the current function call documentation." (byte-code " @ !\" \"\nA@ɪ \"  \" #;!.D D @\nA@ɪ)D" [lisp-minus-prefix lisp-previous-symbol symbol-info symbol ilisp-read-symbol format "Documentation [%s]: " lisp-buffer-symbol doc function variable default ilisp-value ilisp-documentation-types t types ilisp-completing-read "Type [%s]: " "Type: " type read current-prefix-arg lisp-function-name] 6)]) (fset 'lisp-macroexpand-form #[nil "w` `\n { \" ,C" [" \n" nil begin forward-sexp end form lisp-minus-prefix ilisp-read "Macroexpand: "] 3 "\ Return the next form for macroexpanding."]) (fset 'macroexpand-lisp #[(form &optional top) "\n\" Ū\nǔǕOQ \n Ϊ!\n! $\n#  c c) !*\n\"" [string-match "(\\([^ \n)]*\\)" form "Macroexpand" top "-1 " " " 1 nil result message ilisp-send format ilisp-value ilisp-macroexpand-1-command ilisp-macroexpand-command lisp-slashify lisp-buffer-package buffer-file-name expand current-prefix-arg forward-sexp 10 lisp-display-output error "Not a form: %s"] 6 "\ Macroexpand the next sexp until it is no longer a macro. With a prefix, insert into buffer." (lisp-macroexpand-form)]) (fset 'macroexpand-1-lisp #[(form) " \"" [macroexpand-lisp form t] 3 "\ Macroexpand the next sexp once. With a prefix, insert into buffer." (lisp-macroexpand-form)]) (fset 'trace-defun-lisp-break #[(function) " \n?\"" [trace-defun-lisp-internal function current-prefix-arg] 3 "\ Trace FUNCTION without arg, untrace with. Prompt for function with negative prefix. Default function is the current defun. Trace with :break set." (byte-code "  ƪ !\" #C C)" [lisp-defun-name function lisp-minus-prefix ilisp-read-symbol format current-prefix-arg "Untrace [%s]: " "Trace [%s]: " lisp-buffer-symbol t] 5)]) (fset 'trace-defun-lisp #[(function) " \"" [trace-defun-lisp-internal function nil] 3 "\ Trace FUNCTION without arg, untrace with. Prompt for function with negative prefix. Default function is the current defun." (byte-code "  ƪ !\" #C C)" [lisp-defun-name function lisp-minus-prefix ilisp-read-symbol format current-prefix-arg "Untrace [%s]: " "Trace [%s]: " lisp-buffer-symbol t] 5)]) (fset 'trace-defun-lisp-internal #[(function breakp) "\n!!!#!!! $\n˪!#\nΪ?$\nԪ\"" [function ilisp-send current-prefix-arg format ilisp-value ilisp-untrace-command lisp-symbol-name lisp-symbol-package ilisp-trace-command breakp "%srace %s" "Unt" "T" lisp-buffer-symbol untrace trace lisp-wait-p dispatch error "No function to %strace" "un" ""] 7]) (fset 'default-directory-lisp #[(&optional buffer) " \n>!!#\"!!!B\")pq)!\" !#?$)" [buffer major-mode ilisp-modes ilisp-send ilisp-value ilisp-directory-command format "Getting LISP directory" dir comint-errorp t lisp-display-output error "Error getting directory" read default-directory nil lisp-prev-l/c-dir/file message "Default directory is %s" directory ilisp-set-directory-command "Set %s's directory to %s" buffer-name ilisp-buffer lisp-wait-p dispatch] 7 "\ Set the inferior LISP default directory to the default directory of optional BUFFER. If you are in an inferior LISP buffer, set the default directory to the current directory of the LISP." nil]) (fset 'load-file-lisp #[(file-name) " ! ! !B!\"  \" q =! ! = !p @!@! @! A !r))  \" !! !  ! Ɖ\" \" ֕O  ! \"\" \"+" [comint-check-source file-name file-name-directory file-name-nondirectory lisp-prev-l/c-dir/file ilisp-init t ilisp-value ilisp-binary-extension extension lisp-file-extension binary ilisp-buffer comint-send-queue comint-end-queue y-or-n-p "Abort commands before loading? " abort-commands-lisp message "Waiting for commands to finish" accept-process-output sit-for 0 comint-send-variables "Interrupt top level? " comint-send-results result interrupt-subjob-ilisp file-newer-than-file-p ilisp-load-no-compile-query "Compile first? " "" compile-file-lisp file-readable-p switch-to-lisp string-match "/.*?@.*:" nil comint-sender ilisp-process format ilisp-load-command "Loading %s"] 5 "\ Load a lisp file into the current inferior LISP and go there." (comint-get-source "Load Lisp file: " lisp-prev-l/c-dir/file lisp-source-modes nil)]) (fset 'lisp-find-file #[(file &optional pop no-name) " !\n  #•s O\n ʊ @q ?  @!BA\n A,3-!!!" [buffer-list buffers 0 position t expand-symlinks expand-file-name file expanded nil filename no-name string-match "/" buffer-name name buffer-file-name buffer-file lisp-buffer-file buffer-expanded pop lisp-pop-to-buffer find-file-noselect find-file] 5 "\ Find FILE, optionally POPping. If optional NO-NAME is nil, and there is a buffer with a name that is the same as the final pathname component, select that instead of reading the file associated with the full path name. If the expanded name of FILE and buffer match, select that buffer."]) (fset 'find-file-lisp #[(file-name) " ! !B #" [file-name-directory file-name file-name-nondirectory lisp-prev-l/c-dir/file lisp-find-file nil t] 4 "\ Find a file. If point is on a string that points to an existing file, that will be the default. If the buffer is one of lisp-source-modes, the buffer file will be the default. Otherwise, the last file used in a lisp-source-mode will be used." (comint-get-source "Find file: " lisp-prev-l/c-dir/file lisp-source-modes nil)]) (provide 'ilisp-hi)