my-slime-config.el

;;;; SLIME

(when (and (not siscog-p) (file-exists-p "~/src/lisp/slime"))
  ;; (load (expand-file-name "~/quicklisp/slime-helper.el"))
  (add-to-list 'load-path "~/src/lisp/slime/")
  (require 'slime-autoloads)
  (setq slime-contribs
        '(slime-fancy slime-asdf slime-indentation slime-banner
          slime-tramp slime-mdot-fu slime-quicklisp))
  (setq inferior-lisp-program (let ((it "/usr/local/bin/sbcl"))
                                (if (file-exists-p it)
                                    it
                                    "sbcl"))))

;; (setq lisp-indent-function 'common-lisp-indent-function)
;; (setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol)
;; (setq slime-complete-symbol-function 'slime-complete-symbol*)
;; (setq slime-complete-symbol-function 'slime-simple-complete-symbol)
(add-hook 'slime-mode-hook
          (lambda ()
            (push 'slime-fuzzy-complete-symbol
                  slime-completion-at-point-functions)))

;;(setq common-lisp-hyperspec-root "http://intranet/TechDocs/Lisp/HyperSpec/")

;; (setq common-lisp-hyperspec-root
;;       (if siscog-p
;;           "z:/doc/clhs.chm::/"
;; 					; "http://intranet/TechDocs/Lisp/HyperSpec/"
;;         "file:///Users/luis/Documents/References/HyperSpec-7-0/HyperSpec/"))

;; (setq lisp-simple-loop-indentation 1
;;       lisp-loop-keyword-indentation 6
;;       lisp-loop-forms-indentation 6)

(font-lock-add-keywords 'lisp-mode
                        '(("(\\(\\(def\\|with-\\)\\(\\s_\\|\\w\\)*\\)"
                           1 font-lock-keyword-face)))

;(defun clhs-lookup (symbol-name)
;  (interactive
;   (list (let ((symbol-at-point (slime-symbol-name-at-point)))
;           (if (and symbol-at-point
;                    (intern-soft (downcase symbol-at-point)
;                                 common-lisp-hyperspec-symbols))
;               symbol-at-point
;             (completing-read
;              "Look up symbol in Common Lisp HyperSpec: "
;              common-lisp-hyperspec-symbols nil
;              t symbol-at-point
;              'common-lisp-hyperspec-history)))))
;  (ignore-errors
;    (info (concat "(~/Software/clhs/ansicl) " symbol-name) "*clhs*")))

;;; Various lisps

(defmacro defslime-start (name lisp &rest args)
  `(defun ,name ()
     (interactive)
     (slime-start :program ,lisp :program-args '(,@args))))

(unless siscog-p
  (defslime-start allegro "/Applications/AllegroCLexpress.app/Contents/Resources/alisp")
  (defslime-start allegro64 "/Applications/AllegroCL64.app/Contents/Resources/alisp")
  (defslime-start clisp "/usr/local/bin/clisp" "-I")
  (defslime-start cmucl "~/Software/bin/lisp")
  (defslime-start ccl "~/Software/ccl/scripts/ccl")
  (defslime-start ccl64 "~/Software/ccl/scripts/ccl64")
  (defslime-start sbcl "/usr/local/bin/sbcl")
  (defslime-start ecl "~/Software/bin/ecl")
  (defslime-start lw "~/Software/bin/lw")
  (defslime-start abcl "java" "-jar" "/Users/luis/Software/abcl-bin/abcl.jar"))

(when win-p
  (defslime-start acl101b "~/src/start-swank.bat"))

(when siscog-p
  (defslime-start ccl64 "d:/opt/ccl/wx86cl64"))

(defmacro defslime-connect (name host port)
  `(defun ,name ()
     (interactive)
     (slime-connect ,host ,port)))

(defslime-connect lw-local "localhost" 4000)
;; Lisps running on virtual PC
(defslime-connect lw-win "virtual" 4000)
(defslime-connect allegro-win "virtual" 4001)
(defslime-connect clisp-win "virtual" 4002)
(defslime-connect corman-win "virtual" 4003)

;; (setq slime-save-buffers nil)

;; Getting rid of the Fontifying *SLIME
;; Compilation*... (regexps......) message.
;; (setq font-lock-verbose nil)

;;;; Keybindings

(global-set-key (kbd "C-c s") 'slime-selector)
;; (global-set-key (kbd "C-c h") 'clhs-lookup)
;; (global-set-key (kbd "C-c r") 'slime-pop-find-definition-stack)