etc/lisp-cli/init.lisp: Polish with more features

1 files changed, 21 insertions, 24 deletions

diff --git a/etc/lisp-cli/init.lisp b/etc/lisp-cli/init.lisp
index a3862a6..74cc794 100644
--- a/etc/lisp-cli/init.lisp
+++ b/etc/lisp-cli/init.lisp
@@ -4,31 +4,28 @@
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(setf ql:*quickload-verbose* t)
+(defparameter systems
+ '(:cl-ppcre
+   :cl-fswatch
+   :cffi
+   :trivial-dump-core
+   :named-readtables
+   :rstring
+   :curth))
 
-(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))
+(dolist (s systems)
+  (asdf:load-system s))
 
-(mapcar #'load-once
-        (list
-         :cl-ppcre
-         :cffi
-         :trivial-dump-core
-         :named-readtables
-         :rstring
-         :curth))
+(use-package :org.euandre.curth)
+(set-dispatch-macro-character #\# #\f #'org.euandre.curth:|dispatch-f-reader|)
 
-(mapcar (lambda (p)
-          (pushnew (concatenate 'string p "/") cffi:*foreign-library-directories*
-                   :test #'equal))
-        (cl-ppcre:split ":" (uiop:getenv "LIBRARY_PATH")))
+(dolist (p (cl-ppcre:split ":" (uiop:getenv "LIBRARY_PATH")))
+  (pushnew (str p "/") cffi:*foreign-library-directories* :test #'equal))
 
-(load-once :cl-fswatch)
+(defun save ()
+  (trivial-dump-core:dump-image (uiop:getenv "LISP_IMAGE_PATH")))
+
+(define-symbol-macro r
+  (progn
+    (load (uiop:getenv "LISP_CLI_RC"))
+    (values)))