diff options
| author | EuAndreh <eu@euandre.org> | 2022-10-19 23:08:35 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2022-10-19 23:09:04 -0300 |
| commit | 432c518f73e3619fe8b79dd01de2e5a2f50faac3 (patch) | |
| tree | a34e16e740372c1bcca07375c0a40f1bc7ff5d2e /etc/lisp-cli | |
| parent | etc/sh/rc: Stop wraping perl with rlwrap (diff) | |
| download | dotfiles-432c518f73e3619fe8b79dd01de2e5a2f50faac3.tar.gz dotfiles-432c518f73e3619fe8b79dd01de2e5a2f50faac3.tar.xz | |
bin/cl: Add first working version, integrated with Makefile and etc/sh/rc
Diffstat (limited to 'etc/lisp-cli')
| -rw-r--r-- | etc/lisp-cli/init.lisp | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/etc/lisp-cli/init.lisp b/etc/lisp-cli/init.lisp index 0f01d57..062446e 100644 --- a/etc/lisp-cli/init.lisp +++ b/etc/lisp-cli/init.lisp @@ -3,3 +3,29 @@ (user-homedir-pathname)))) (when (probe-file quicklisp-init) (load quicklisp-init))) + +(defun load-once (p) + (let ((k (intern + (concatenate 'string + (string :ql/) + (string p)) + "KEYWORD"))) + (unless (member k *features*) + (ql:quickload p) + (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) |