
(defvar clisp-locker "lucidcl")

(defvar clisp-program-name (concat "/mit/lucidcl/" hosttype "bin/lisp"))

(defvar clisp-program-args nil)

(defvar clisp-priority 10)

(if (or (not (or (string-equal hosttype "decmips") (string-equal hosttype "vax"))) (string-equal (cpu-type) "MVAX-II")) (progn (setq clisp-program-name "rlogin") (setq clisp-program-args (quote ("gevalt" "-l" "kkkken")))))

(defvar clisp-buffer-name "*clisp*")

(defvar clisp-process-name "clisp")

(defvar clisp-inferior-mode-hook nil)

(defvar clisp-inferior-mode-map nil)

(defvar clisp-mode-map nil)

(defvar clisp-mode-hook nil)

(defvar clisp-mode-syntax-table nil)

(defvar clisp-history-size 50)

(defvar nice-program-name "/bin/nice")

(defmacro clisp-buffer nil (byte-code "À‡" [(get-buffer-create clisp-buffer-name)] 1))

(defmacro clisp-process nil (byte-code "À‡" [(get-buffer-process (clisp-buffer))] 1))

(defun lisp-mode nil (interactive) (byte-code "ÀˆÁ ‡" [nil clisp-mode] 2))

(defun clisp-startup nil (interactive) (byte-code "Éˆ…	 ÊË!… ËÁ\"ˆÌ!
qˆÍÄ!… …% Î!ˆÏÐÑ
D…8 ÒÓÔ\"DC$\"ˆÕ )ˆÖ ‡" [clisp-locker t b clisp-buffer-name clisp-process clisp-process-name clisp-priority clisp-program-name clisp-program-args nil fboundp attach get-buffer-create boundp delete-process apply start-process append "/bin/nice" format "-%d" clisp-inferior-mode clisp-goto] 13))

(defun clisp-goto nil (interactive) (byte-code "ÂˆÃÄ	!!ƒ Å!‚ ÆÄ	!!)‡" [w clisp-buffer-name nil get-buffer-window get-buffer-create select-window switch-to-buffer-other-window] 6))

(defun clisp-show nil (interactive) (byte-code "ÁˆÂÃ!!‡" [clisp-buffer-name nil display-buffer get-buffer-create] 3))

(defun clisp-inferior-mode nil (interactive) (byte-code "ÅˆÉ ˆÊ‰ˆË‰ˆÌÂ!ˆÌÃ!ˆÌÆ!ˆÌÇ!ˆÍp!‰ˆÎÅ\"‰ˆÏ‰ˆÏ‰ˆ†a Ð ‰ˆÑÒÓ#ˆÑÔÕ#ˆÑÖ×#ˆÑØÙ#ˆÑÚÛ#ˆÜ!ˆÝÞ!‡" [mode-name major-mode clisp-process clisp-history clisp-history-size nil clisp-hist-last clisp-hist-cur clisp-inferior-mode-map kill-all-local-variables "Clisp/inferior" clisp-inferior-mode make-local-variable get-buffer-process make-vector 0 make-sparse-keymap define-key "" clisp-send "p" clisp-grab-previous-history "" clisp-goto-next-history "" clisp-interrupt "" clisp-goto-previous-history use-local-map run-hooks clisp-inferior-mode-hook] 16))

(defun clisp-add-history (m1 m2) (byte-code "T‰ˆ	G=… Å‰ˆ‰ˆ	Æ!Æ!BI‡" [clisp-hist-last clisp-history clisp-hist-cur m1 m2 0 copy-marker] 6))

(defun clisp-find-history (pos) (byte-code "	
H… AVƒ Ñ
B‚Ò\\	GÓ	G\\ÉÉÉÉÉÉÉÉÉ
Y…G Ô‰ˆÕV…R ?…Ü ÕXƒ` ‚a S‰ˆ	H‰…Ì ?†y @AV…… ‰ˆ‰ˆ?†’ A@W…ž ‰ˆ‰ˆ@Y…± AX…± Ö‰†Ì …Ì @W…Ì AV…Ì Ñ‰ˆ‰ˆS‰ˆ‚H ˆƒí ‰ˆB‚AVƒü ÑB‚@Wƒ×B‚É.)‡" [cell clisp-history clisp-hist-last pos n clisp-hist-cur len left upper-neighbor nil un-lm last endn endc begn begc type after 2 4 1 0 inside before] 12))

(defun clisp-send nil (interactive) (byte-code "Çˆ	È!Ç`
Yƒ5 dbˆÉcˆd
ZÊV…\" Ë
d\"ˆÌÍ
d\"\"ˆdbˆÎ
d\"‚] Ï`!…A @Ð=ƒY AHdbˆÍ@AS\"c)‚\\ ÑÒ!)+‡" [proc clisp-process marker tosend histn pair clisp-history nil process-mark "
" 3 clisp-add-history process-send-string buffer-substring set-marker clisp-find-history inside error "Can't find input line near point!"] 9))

(defun clisp-goto-previous-history nil (interactive) (byte-code "ÂˆÃ`S!† ÄÅ!ˆ	AH@b)‡" [upper clisp-history nil clisp-find-history error "Can't find this history!"] 4))

(defun clisp-goto-next-history nil (interactive) (byte-code "ÄˆÅ`Æ\\!† ÇÈ!ˆA‰ˆ
HAS`	Wƒ& 	b‚D 
T
G=ƒ3 É‚5 TH†> ÇÊ!ˆASb)))‡" [upper end clisp-history nextcell nil clisp-find-history 1 error "Can't find this history!" 0 "Can't find next history!"] 5))

(defun clisp-grab-previous-history nil (interactive) (byte-code "ÃˆÄ`!† ÅÆ!ˆA‰ˆ
HdbˆÇ	@	AS\"c))‡" [upper cell clisp-history nil clisp-find-history error "Can't find any history!" buffer-substring] 5))

(defun clisp-mode nil (interactive) (byte-code "ÉˆÊ ˆË‰ˆÌ‰ˆÍÂ!ˆÎ‰ˆ?… Ï!‰ˆÐ!ˆÍÅ!ˆÍÆ!ˆÍÇ!ˆÑ‰ˆÒ‰ˆÓ‰ˆ†r Ô ‰ˆÕÖ×#ˆÕØÎ#ˆÕÙÚ#ˆÕÛÜ#ˆÕÝÞ#ˆÕßà#ˆá!ˆâã!‡" [mode-name major-mode indent-line-function clisp-mode-syntax-table emacs-lisp-mode-syntax-table comment-start comment-end comment-start-skip clisp-mode-map nil kill-all-local-variables "Clisp" clisp-mode make-local-variable lisp-indent-line copy-syntax-table set-syntax-table "; " "" ";+[ 	]*" make-sparse-keymap define-key "" backward-delete-char-untabify "	" "" clisp-send-sexp-and-go "" clisp-load-file "g" clisp-goto "e" clisp-send-sexp use-local-map run-hooks clisp-mode-hook] 17))

(defun clisp-send-sexp nil (interactive) (byte-code "ÁˆŠÂ ˆ`Ã ˆÄ`\"))‡" [end nil end-of-defun beginning-of-defun clisp-send-region] 5))

(defun clisp-send-sexp-and-go nil (interactive) (byte-code "ÀˆÁ ˆÂ ˆdb‡" [nil clisp-send-sexp clisp-goto] 3))

(defun clisp-send-region (start end) (interactive "r") (byte-code "ÃˆÄÅÆ!!Ç	
\"\"‡" [clisp-buffer-name start end nil process-send-string get-buffer-process get-buffer-create buffer-substring] 7))

(defun clisp-load-file nil (interactive) (byte-code "ÂˆÃ † ÄÅ!ˆÆ ˆÇÈÉ	!!Ê\"ˆËÌ!ˆËÌ!ˆËÌ!ˆÇÈÉ	!!ÍÎ\"\"ˆÏ )‡" [fname clisp-buffer-name nil buffer-file-name error "Not a file buffer" save-buffer process-send-string get-buffer-process get-buffer-create ":a
" sit-for 0 format "(load \"%s\")
" clisp-goto] 16))

(defun clisp-interrupt nil (interactive) (byte-code "ÂˆÃÄ\"ƒ ÅÆÇ	!!È\"‚ ÉÆÇ	!!!‡" [hosttype clisp-buffer-name nil string-equal "rsaix" process-send-string get-buffer-process get-buffer-create "" interrupt-process] 8))