Skip to content

Instantly share code, notes, and snippets.

@g000001

g000001/defrunlisp.el

Last active January 17, 2017 16:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save g000001/eee4b3a736d0b12500abc4151ce0ddcc to your computer and use it in GitHub Desktop.
Save g000001/eee4b3a736d0b12500abc4151ce0ddcc to your computer and use it in GitHub Desktop.
Download ZIP
*inferior-lisp* rename
Raw
defrunlisp.el
(defmacro defrunlisp (name &optional lisp-exe-path)
(let ((sname (symbol-name name)))
`(defun ,(intern (concat "run-" sname)) ()
(interactive)
(run-lisp ,(or lisp-exe-path sname))
(rename-buffer ,(concat "*inferior-" sname "*")))))
(defrunlisp sbcl "sbcl.wrapper")
(defrunlisp scl "/opt/scl/bin/lisp")
Raw
slime-start-hook.el
;;; slimeとぶつからないように?
(setq slime-inferior-process-start-hook
(list (lambda ()
(rename-buffer (concat (buffer-name) (symbol-name (cl-gensym)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment