bin/cl: Add first working version, integrated with Makefile and etc/sh/rc

2 files changed, 27 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)
diff --git a/etc/sh/rc b/etc/sh/rc
index 0f0ed5d..d5801b8 100644
--- a/etc/sh/rc
+++ b/etc/sh/rc
@@ -87,6 +87,7 @@ export LEX=flex
 export LDFLAGS='-flto'
 export LISP='sbcl --eval'
 export N_PROCS GUILE_EFFECTIVE_VERSION
+export LISP_CLI_IMPL=clisp
 
 add_prefix() {
 	export GUILE_LOAD_PATH="$1/share/guile/site/$GUILE_EFFECTIVE_VERSION${GUILE_LOAD_PATH:+:}${GUILE_LOAD_PATH:-:}"