Commit f0eedefd authored by Dave Cooper's avatar Dave Cooper
Browse files

added load-glime function

parent 55f22e4c
......@@ -193,6 +193,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:list-of-numbers
#:list-of-n-numbers
#:lookup-color
#:load-glime
#:load-quicklisp
#:load-hotpatches
#:*quicklisp-home*
......
......@@ -444,3 +444,14 @@ keyword argument to this function.
(warn "~s does not exist.~%" ql-loader))))
(defun load-glime ()
"Void. If the Glime (Slime Gendl auto-completion extensions) file exists, load it.
Path is currently hardcoded to <tt>(merge-pathnames \"emacs/glime.lisp\" glime:*gdl-home*)</tt>
or <tt>~/genworks/gendl/emacs/glime.lisp</tt>.
"
(let ((glime-source (or (probe-file (merge-pathnames "emacs/glime.lisp" glisp:*gendl-home*))
(probe-file (merge-pathnames "genworks/gendl/emacs/glime.lisp" (user-homedir-pathname))))))
(if (probe-file glime-source)
(load (compile-file glime-source :output-file (make-pathname :defaults (glisp:temporary-file) :type glisp:*fasl-extension*)))
(warn "Glime source not found at ~s.~%" glime-source))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment