1 files changed, 2 insertions, 24 deletions
diff --git a/etc/lisp-cli/init.lisp b/etc/lisp-cli/init.lisp
index 74cc794..df7cc23 100644
--- a/etc/lisp-cli/init.lisp
+++ b/etc/lisp-cli/init.lisp
@@ -4,28 +4,6 @@
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(defparameter systems
- '(:cl-ppcre
-   :cl-fswatch
-   :cffi
-   :trivial-dump-core
-   :named-readtables
-   :rstring
-   :curth))
-
-(dolist (s systems)
-  (asdf:load-system s))
-
+(asdf:load-system :curth)
 (use-package :org.euandre.curth)
-(set-dispatch-macro-character #\# #\f #'org.euandre.curth:|dispatch-f-reader|)
-
-(dolist (p (cl-ppcre:split ":" (uiop:getenv "LIBRARY_PATH")))
-  (pushnew (str p "/") cffi:*foreign-library-directories* :test #'equal))
-
-(defun save ()
-  (trivial-dump-core:dump-image (uiop:getenv "LISP_IMAGE_PATH")))
-
-(define-symbol-macro r
-  (progn
-    (load (uiop:getenv "LISP_CLI_RC"))
-    (values)))
+(named-readtables:in-readtable org.euandre.curth:readtable)