Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
f0eedefd
Commit
f0eedefd
authored
Feb 03, 2016
by
Dave Cooper
Browse files
added load-glime function
parent
55f22e4c
Changes
2
Show whitespace changes
Inline
Side-by-side
base/source/package.lisp
View file @
f0eedefd
...
...
@@ -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*
...
...
base/source/utilities.lisp
View file @
f0eedefd
...
...
@@ -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
))))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment