From 432c518f73e3619fe8b79dd01de2e5a2f50faac3 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Wed, 19 Oct 2022 23:08:35 -0300
Subject: bin/cl: Add first working version, integrated with Makefile and
 etc/sh/rc

---
 etc/lisp-cli/init.lisp | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'etc/lisp-cli')

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)
-- 
cgit v1.2.3