diff options
| author | EuAndreh <eu@euandre.org> | 2022-11-17 17:58:41 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2022-11-17 17:58:41 -0300 |
| commit | 62ca1a97e0848ef5f9043da69c6af8a9b0bb9808 (patch) | |
| tree | 9fa23a49cf205c7162a3604418775cbc798ee3c7 /etc/lisp-cli/init.lisp | |
| parent | Initial empty commit (diff) | |
| parent | opt/bin-dirs/clisp: Include custom build of CLISP (diff) | |
| download | dotfiles-62ca1a97e0848ef5f9043da69c6af8a9b0bb9808.tar.gz dotfiles-62ca1a97e0848ef5f9043da69c6af8a9b0bb9808.tar.xz | |
Merge remote-tracking branch 'tilde/main'
Diffstat (limited to 'etc/lisp-cli/init.lisp')
| -rw-r--r-- | etc/lisp-cli/init.lisp | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/etc/lisp-cli/init.lisp b/etc/lisp-cli/init.lisp new file mode 100644 index 0000000..69cb054 --- /dev/null +++ b/etc/lisp-cli/init.lisp @@ -0,0 +1,33 @@ +#-quicklisp +(let ((quicklisp-init (merge-pathnames "dev/quicklisp/setup.lisp" + (user-homedir-pathname)))) + (when (probe-file quicklisp-init) + (load quicklisp-init))) + +(setf ql:*quickload-verbose* t) + +(defun load-once (p) + (let ((k (intern + (concatenate 'string + (string :ql/) + (string p)) + "KEYWORD"))) + (unless (member k *features*) + (ql:quickload p :verbose t) + (pushnew k *features*)) + k)) + +(mapcar #'load-once + (list + :cl-ppcre + :cffi + :trivial-dump-core + :named-readtables + :rstring)) + +(mapcar (lambda (p) + (pushnew (concatenate 'string p "/") cffi:*foreign-library-directories* + :test #'equal)) + (cl-ppcre:split ":" (uiop:getenv "LIBRARY_PATH"))) + +(load-once :cl-fswatch) |