emacs-config/lispbox.elc at master · mbrezu/emacs-config · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
;ELC
;;; Compiled by miron@miron-desktop on Sat Feb  5 18:06:33 2011
;;; from file /home/miron/emacs/lispbox.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`lispbox.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'cl)
(defalias 'lispbox-list-to-filename #[(list) "\301\302\303\304\"\"\207" [list apply concat maplist #[(cons) "A\203\n\301@!\207@\207" [cons file-name-as-directory] 2]] 5])
(defalias 'lispbox-file #[(rest) "\302\303\304\305!\206\306!!!	P\207" [load-file-name rest file-name-as-directory expand-file-name getenv "LISPBOX_HOME" file-name-directory] 4])
(defalias 'lispbox-find-lisps #[nil "\302\303\304!!\305\211\203	@\306!\210	A\211\204\f*\305\207" [file #1=#:--cl-dolist-temp-- file-expand-wildcards lispbox-file "*/lispbox-register.el" nil load] 4])
(defalias 'lispbox-install-lisp-license #[(license-path lisp-name) "\306!\307	!P\310\n!?\205\311\312\"\313\f!\314\315!\n\"*)\207" [load-file-name license-path license lisp-name prompt to-install file-name-directory lispbox-list-to-filename file-exists-p format "Need to install license for %s . Please enter name of file where you saved it: " read-file-name copy-file expand-file-name] 3])
(byte-code "\301\302!\210\303\304!B\305\306\303\307!\"\210\305\310\303\311!\"\210\312\313!\210\314 \210\315 \210\316\317!\207" [load-path global-font-lock-mode t lispbox-file "slime-20060110" setenv "SBCL_HOME" "sbcl-0.9.7/lib/sbcl" "CCL_DEFAULT_DIRECTORY" "openmcl-1.0" require slime slime-setup lispbox-find-lisps provide lispbox] 4)