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)